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Atari Computer Enthurgiasts (N.S.W.) 
——eSSSSSSSeeSSSSSSSSSSSSSSSSSSSSSSSS RA NC AQ L884 


Atari Computer Enthusiasts (N.5.0.) is an 
independent, non-profit computer users’ group loosely 
affiliated with Atari Computer Enthusiasts in the 
U.S.A, We have no connections with ATARI, Inc. or 
their Australian distributors, | Futuretronics 
Australia Pty. Ltd. Qur ais include promotion of 
the various ATARI Home Coaputer Systeas, instructing 
both beginners and advanced users in programming 
techniques, exchanging public domain software, hints, 
tips and ideas amongst embers and generally enjoying 
ourselves. The Club cannot condone software piracy. 

COMMITTEE MEMBERS Hoae Phone 4@ 
Tony Reeve (President) (02)452 2974 
Barry Williaas (Vice President) 102)452 2229 
Alex Kwok (Secretary/Treasurer) (02)661 3377 
Peter Baatord (Meetings Organizer) (043)42 2655 
Peter Dickeson (Cassette S/W Xchge) (02) 80 2505 
Brian Siseons (Disk S/W Xchge) (045)76 5331 
Chris Fitzgerald (Editor) (02)637 5447 
Roberto Romano (Bulletin Board) {02)327 4898 
Jeff Maddock (Librarian) (02)548 2990 
Address all gail to the relevent committee position:- 

C/- Atari Computer Enthusiasts (N.S.W.) 

6.P.0, Box 4514, 

Sydney, 

N.S.W. 2001, 

MENBERSHIP FEES 

$30 for the first year and $15 thereafter (or 
$20 and $10 respectively for students under 18 and 
still at school). Overseas air-aai] subscriptions 
are $10(Aust) extra per year. Please write to the 
Secretary for further details. 

SOFTWARE EXCHANGE 

Titles available are:- 

#EDUCATION #1 #6AMES #1 #6AMES 82 

HUTILITIES #1 SUTILITIES #2 #fig-FORTH (disk only) 
SINSIDE INFO Vol, 1 #XL TRANSLATOR (disk only) 
FINSIDE INFO Vol. 2 with CARTOONS 

#INSIDE INFO Vol. 3 (issues 11-14) 
DISKS: $10 each. CASSETTES: $8 each. 

Non-aeabers add 10%. Include an extra $1.50 to 
cover surface postage within Australia. Contact 
appropriate software exchange for further details. 

Overseas meabers should write for costs first. 

For every program you write and have accepted by 
the Software Exchange, you will be entitled to one 
Software Exchange disk or tape at half price. 

We are keen to exchange software with other 
user's groups. 

BLANK MEDIA 
DISKS: $32 CASSETTES: $9 

Prices are for boxes of {0 and aay change 
without notice. An extra $1.50 should be included to 
cover postage within Australia. Contact appropriate 
Software exchange for details, 

DISK BOXES 

These hold 90 disks and have a lockable lid. 
Cost to meabers is $35, non-seabers $39.50. Include 
an extra $3.35 for postage within N.6.W. and $5.50 
elsewhere within Australia, Contact club Secretary 
for details, 


SPECIAL INTEREST GROUPS (8.1.6.8) 

Home phone nuabers of contacts are given below. 
Phone thea or write to the Editor with your 
suggestions, high scores, reviews, hints or tips. 

ADVENTURES: Contact Garry Francis (021789 1397 

ARCADE GAMES: Contact Ken Shiu (02)534 2120 

COMPUTE!s Contact Barry Williams © (02)452 2229 

FORTH: Contact John Mattes (02) 94 5463 

HARDWARE: Contact Jamie Athas (02)349 7365 
A.C.E. BULLETIN BOARD -Phone(02)327 4898 

Systems Operator (SYSOP) is Roberto Roaano. 
Systea available between 98.30 P.M. and 9.30 P.M, 
Tuesday to Saturday only. Access requires a personal 
password which is available fro SYSOP for $3 per 
year, We reconeend you use "AMPLUSS.UDL’ terainal 
software, PUBLIC DOMAIN SOFTWARE ONLY! 

INSIDE INFO 

This is our bi-monthly users’ group magazine. 
Articles, etc. should reach the editor at least one 
aonth ahead of the release date. Authors of articles 
printed in INSIDE INFO are entitled to one disk or 
cassette from the Software Exchange at half price. 
BACK ISSUES: $4 each plus air-aailing costs. 

EXCHANGE SUBSCRIPTIONS: We are keen to exchange 
magazines with other Atari Users’ Groups. Please 
write to the Secretary for details, 

COPYRIGHT: Unless otherwise stated, articles in 
INSIDE INFO are not copyrighted. However, if any 
article is reprinted, acknowledgement of our source 
should be aade. Also, please send TWO copies of the 
issue of your magazine to A.C.E. (N.S.W.), 
ADVERTISING: Contact the Vice President for costs and 
conditions. Members’ personal adds are free. 
REFERENCE LIBRARY 

Soae books are brought to aeetings, others are 
available only by arrangement with the librarian. 
Loans are made only to people researching articles or 
talks for the club. 

DISCOUNTS AVAILABLE TO MEMBERS 

You say be asked to present your seabership card 

before being given any discounts! 
COMPUTERWAVE (5% ~cash only] 325 George St, Sydney. 
(near Wynyard) Ph. (02) 29 £631. 
THE COMPUTER SPOT [5% credit, 10% cash) Shop C4, 
WLC. Centre, Martin Place, Ph. (02)235 2971, 
COVER CARE (25% off computer dust covers] P.O. Box 
719, Chatswood, N.S.W. 2067. Ph, (02)498 5631. 
MEETING DETAILS 

Meetings are held at 6.00 P.M. on the first 
Monday of the month (or the second Monday if it 
clashes with a public holiday) in the Amenities Roos, 
7th Floor, OTC House, 32-36 Martin Place, Sydney. 
WOTEs You can't enter the building after 6.30 P.M. 

and you MUST sign in! 
MEETING DATES FOR 1984 
3rd Septeaber #6th October Sth Noveaber 
#3rd Deceaber. 
MEETING DATES FOR 1985 
#4th February 4th March {st April 
# indicates release dates for INSIDE INFO. 


From [HE PRESIDENT 


Welcome to another issue of "INSIDE INFO". Over 
recent aonths the Club has been active in several 
areas, so I thought it timely to put some words 
together and let you know what's happening. 

The good news is the bonus of GRAPH-FIX keyboard 
labels for every meaber free of charge -enclosed with 
this issue. The decision to purchase 300 labels at a 
cost of $1000 was based on the healthy financial 
position of the club. 

We now own a BEWT.V. which is used by Roberto 
to operate the Bulletin Board. This is a great new 
service offered by the Club so, if you have any 
questions on what it does I am sure Roberto will be 
pleased to talk to you. 

While on the subject of T.V.'s, we have just 
purchased a 43 ca colour set for use at club 
aeetings. OTC very kindly loan us one, however, with 
meeting attendance now reaching 50 plus the people at 
the rear can't see. 

The Software Exchange has been busy evaluating 
public domain software and now has a range of quality 
programs available on disk and cassette. 

Once again ATARI in the U.S.A. is under going 
change with the announcement that Mr J. Tramiel (Ex 
Comaodore) has taken over the hele. Already he has 
wade aajor changes in the organisation to, no doubt, 
re-align ATARI'’S aarketing position. Two victias of 


recent changes are the User Support Programs and APX. 
I was told by ATARI that the 23 top progrags froa AP 
will be now sarketed by the Customer Relations 
Division. 

Back on the local scene, Futuretronics and the 
Comsittee have had discussions on the proposal froa 
thea that there be one official user group in N.S.4. 
Futuretronics are happy to recognise A.C.E. (N.S.W.) 
as that group, however, the details on how we would 
Manage other groups is yet to be deterained. I would 
like to hear your opinion, 

There has been lots of talk about running 
courses for smeebers on various ATARI related 
subjects, Well, we propose to run the first of 
these, “Introduction to the ATARI computer", during 
August/Septeaber at a central Sydney venue, The 
course would run over 4 weeks with a tote] of 8 hours 
tuition, Subject headings would include: Coaputer 
Terainology, ATARI Peripherals, Care and Maintenance, 
Disk or Tape ?, Communications, Languages, Overview 
of ATARI] Basic. There would be a limit of 12 
students per course at an approxisate cost of 
$30-$35, For further details, please contact ae, 

Well that’s all from ae, however, if there is 
anything you would like to discuss, please drop ae a 
line or call. 


ATARL TAKEOVER 


As already mentioned, Atari has gone through yet 
sore major changes. Warner Communications has 
reduced it's interest in Atari and cut its share of 
the company down to 32%. There have been rusours 
going for ages that people jike Nolan Bushnell 
(original founder of Atari) and even Rupert Murdoch 
aight buy into Atari. 

An unexpected event was that a guy called Jack 
Trasiel would have @ board room argueent with his 
Comaodore International executives. Leaving his 
position as President at Commodore, he had a think 
about what he was going to do, and eventually got 
into Atari. Apparently he didn't actually buy into 
Atari but rather, picked up $US240 aillion of Atari’s 
debts. He also has the option to buy one aillion of 
Warner's share at $U522 each. 

In almost no time he reduced Atari's staff froa 
1100 to 300, installed 3 of his sons into key 
Management positions, decided to shift and 
consolidate Atari's manufacturing facilities and to 
relocate the software production to Taiwan. 

Trasiel won't run Atari by committee, he 
apparently wants full control himself and has stated 
that "business is war!". Tramiel intends to sake 
Atari the home corputer market leader within twelve 
acnths and has indicated that there will be a tough 
marketing war to do it. He has stated:- "You can be 
assured of ay determination to, in a short period of 
tiae, dominate the howe entertainaent aarket with the 


| 


Tony Reeve 
fine Atari products promoted and priced sore 
aggressively. 1 know the opposition’s current 


situation and that’s why I have aoved in on Atari. 
You can be guaranteed that with ay revaaped teaa and 
our leadership style, we will take the Atari fully 
featured products to aarket leadership within twelve 
aonths." 

Mr Tramiel said that one aajor opposition brand 
had lost some credibility in the aarket place because 
its products were not compatible froe one machine to 
another in the range. The products were also less 
reliable than Atari howe computers, he explained, 

Mr Tramiel also said that it was an 
understateaent to say that the opposition brand's 
market leadership in a nuaber of countries would be 
threatened by his planned moves in Atari. “Atari has 
the products, I've got the expertise, and we plan t: 
knock the socks off the opposition", Mr Trasiel 
warned. "We will leave Atari's history in the past. 
We now look to the future and the success it will 
bring.” 

Referring specifically to Australia, Mr Traaiel 
saidt- ‘Futuretronics, with its long tere contract 
and past performance, has achieved enormous success 
with Atari products. They are seen as a vital link 
in Atari's overseas operation," 

So, a5 you can see, Atari 
truly in the running! 


is still well and 
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HEGRE EE EERE RHEREEHER EEE 
ATART COMPUTER ENTHUSTASTS (NSW) 
KEKE KHEREREEE GEER HEHEHE EEE 
-PROPOSED CONSTITUTION- 
AUGUST 1984 


(1) NAME 
The official name of the club shal) be "ATARI 
COMPUTER ENTHUSIASTS (N.S.W.)". 


(2) DEFINITEONS 

*CLUB* Bhall refer to Atari Computer Enthusiasts 
(N.S.WL), 

"ACE (N.S.W.)" Shall refer to Atari Computer 
Enthusiasts (N.S.W.). 

"MEMBER" Shall refer to a person who has eet the 
criteria laid out under (4) Meabership. 

"COMMITTEE" Shall refer to a person responsible 
for administration of the Club, who has been elected 
at the Annual General aeeting as laid out under (6) 
Coasittee. 

"INSIDE INFO” Shall refer to the newsletter 
published by the Club. 


{3) OBJECTIVES 

a) To provide owners and users of Atari 
Coaputer Systems a aeeting place for general, 
friendly discussion, 

b) To produce and circulate a newsletter to al! 
aeabers of the club, 

c) To establish a library of coaputer prograss 
and written saterial, for and by the members of the 
club to share with its seabers. 

d) To provide activities that are 
representative of aeabers' wishes, 

@) To promote unity, friendship and liason 
between sesbers, 

#) To purchase, for resale to seabers, goods 
that are representative of seebers’ wishes, 


(4) MEMBERSHIP 

a) Meabership shall be open to all people who 
complete the eeabership application fore and agree to 
abide with the constitution. 

b) The prescribed seabership fee, which shall 
be deterained from tise to tise shal] be payable at 
the tise the application fora is lodged and shall not 
be refundable. 

c) Meabership categories shall be as follows:- 

# Fapily eeabership. 

# Ordinary seabership. 

# Student sesbership -a person under the age 
of 18 years and still at school. 

d) Nesbership of any aeaber shall be deesed to 
cease only: 

{i) If a merber fails to pay the prescribed fee, as 
determined by the club and/or is sore than one 
calendar aonth overdue, 

(ii) If a meaber submits a written resignation. 
(iii) If a aeaber has committed a breach of decorua, 
regulation or other such aatter to bring the club 


disrepute, he/she pay be asked to attend @ meeting of 
the conaittee and unless a satisfactory explanation 
is provided, he/she may have his/her senabership 
terainated, 


(5) GENERAL MEETING 

a) There shal) be ten (10) General Meetings 
scheduled within a twelve (12) month period. 

b) The aeetings shall be conducted by the 
Meetings Organizer. 

c) The tiae and place of the meeting shall be 
determined by the comsittee or by the President. 

d) Fifty percent (502) of the aeabership or 20 
meabers (which ever is the lesser) attending such a 
aeeting shall constitute a quorua. 


{) COMMITTEE 

a) The Committee shal] consist of nine seabers: 
President, Vice President, Secretary/Treasurer and 
six others whose duties shall be allocated by the 
President, all of whoa shall be elected at the Annual 
General Meeting of the club. 

b) The composition of the Cosaittee aay be 
asended froa tive to tise, as needed, by all aeabers 
voting at the Annual General Meeting, or a special 
aeeting called for that purpose. 

c) Any vacancies occurring during the year aay 
be filled by the cosmittee at their discretion, 
pending an election at the next Annual General or 
Special Meeting. 

6) The committee shal] meet as and when it 
shall deteraine, or upon the request of the President 
or two other aeabers of the cosaittee, 

e) The quorum at a committee meeting shall be 5 
eeabers, 





(7) ANNUAL GENERAL MEETING 

a) The Annual General Meeting shall be held in 
the month of Noveaber each year. 

b) All aembers shall be given at least 
twenty-one (21) days notice of the eeeting. 

c) Nominations for al] committee positions 
shall be called twenty-one (21) days prior to the 
A.6.M. 

8) Financial statement shall be presented to 
al] aeabers by the retiring Secretary/Treasurer, 

e) Fifty percent (502) of the sesbership or 
thirty (30) aeabers, which ever is the lesser shall 
constitute 2 quorum for the A.6.4. 

#) The Committee tere of office shall run from 
January 1 to December 3i, 

g) The incuabent Meetings Organizer shall 
conduct and supervise all elections. 

h) Hf no nominations are accepted for any 
office, the chairman shall announce the vacancy and 


(Cay 


proceed with the elections. The vacancy shall then 
be filled at the first General Meeting at which there 
are noninees. 


(8) INDEMNITY 

Every aenber of the Coasittee who, by the 
authority of the committee, accepts or incurs any 
precuniary liability on behalf of the club shall be 
held indeanified by the club against any personal 
loss in respect of such liability. 


(9) FINANCE 

a) The Secretary/Treasurer shall receive and 
disburse the aonies of the club as authorised by the 
coasittee. 

b) An account shall be maintained at sone 
suitable banking house under the nase “Atari Computer 
Enthusiasts (N.S.W.)" and — the President, 
Secretary/Treasurer and Editor, or any two of thea, 
shall jointly operate sase. 

The Committee shall cause proper accounts to be 
kept with respect to: 

1, All suas of money, received and expended by the 





Club and the aatters in respect of which the receipt 
and expenditure take place. 

2. All sales and purchases of goods by the club. 

3. The assets and liabilities of the club. 


(10) AMENDMENT OF CONSTITUTION 

No amendaent to the constitution shall be aade 
except by resolution at the Annual General or Special 
Meeting passed by atwo thirds sajority of meabers 
present. The special meeting shall have the sane 
quorus requirement as the A.6.4, 


(11) DISSOLUTION 

The club shall be dissolved in the event of the 
aeabership being Jess than 10 persons or upon the 
vote of a three-fourths sajority of the aeabers 
present at a special General Neeting convened to 
consider such dissolution. In the event of the 
disbandment, any real property shall be disposed of 
either by tender or by public auction, and the 
resulting monies, together with liquid assets, shall 
be donated to a charitable organisation detersined at 
the specia) aeeting, 


Overseas Mail Ordering 


In Inside Info No.10 (December 1983) there was an article on “Overseas Mail Ordering’. 


This article 


aentioned that MasterCard and Visa Card would soon be available, so for those of you who are interested in using 
these cards for overseas mail-ordering, here are some details. I wrote to A.N.Z.{ANZ), Westpac (W) and National 
Australia (NA) Banks, the answers they gave are quoted below, in combination I! feel that they give a fairly 


coaplete picture. 


HHHKHER 
Q1 Is there an issuing fee or annual fee for 
the use of MasterCard? If not, will these charges be 
introduced at a later date, and how auch will they 
be? 
(ANZ) There is no annual or issuing fees on 
an ANZ Visa Card, but the bank has an option to place 
a fee (whether it be issuing fees or change in rates) 
ona Visa Card inthe future. Al) cardholders will 
be notified in writing by the bank prior to any 
expected future alteration to charges. 
(NA) At present there is no issuance or 
renewal fee and we are unable to say at this tiae if 
a fee will be introduced in the future. 
(W) There is no issuing fee or annual fee on 
Westpac MasterCard. The bank has no plans to 
introduce issuing/annual fees on existing MasterCards 
at a later date. 

HHH HEHE 
Q2 If I mail-order for goods from overseas by 
sending ay MasterCard nuaber (along with an authority 
to debit ay MasterCard account for the goods), what 
assurance is there that the eail-order house won't 
overcharge we for goods or for that satter, charge ae 
for goods I don't order? Would I have to pay if this 
happened? 


(ANZ) There is no assurance that a aail 
order house aight overcharge you for goods. If this 
does occur we ask that the cardholder writes to this 
department (Bank Card Dept.) and we will investigate 
the aatter on their behalf. 
(NA) No assurance can be given that a aail 
order merchant will not overcharge or charge you for 
goods you did not order. However, should this occur 
we would bein a position to charge any disputed 
apount back to the eerchant upon your written 
request, 
(WwW) There is no assurance that overseas sail 
order firms will not overcharge your quoted 
MasterCard account for goods ordered by you. For 
logistical reasons, the bank‘s generally are unable 
to stringently enforce this. However, eail and/or 
telephone order serchants are carefully vetted by 
aost banks prior to MasterCard merchant sign up. 
Written complaints ¢rom Westpac MasterCard holders 
regarding unsatisfactory aerchant (whether Westpac, 
other local banks, or overseas) behaviour are taken 
up by us with the merchant bankers. In soae 
circumstances a refund of funds debited to your 
account by the merchant can be obtained. For 
exanple, where the merchant has not supplied the 
goods requested, or has acted outside the teras of 
the MasterCard Merchant Agreement. 

Cay” 


Q3 I understand that there is an imposed limit 
on the arsount of money that people can send overseas. 
Does this still apply with MasterCard? 
(ANZ) The asount you can order from an 
overseas merchant can sosetiaes depend upon the 
exchange controls of that particular country. If 
4.C.E. aainly deals with US aerchants you should not 
have any troubles with exchange controls, Each card 
has a predetermined credit lieit which is the aaount 
that can be spent up to. 
(NA) There is no restriction as long as your 
purchase falls within Exchange Control regulations. 
For further details you will need to phone the 
Reserve Bank exchange contro] section. 
(W) The Reserve Bank of Australia presently 
has no restriction on the amounts MasterCard holders 
Bay Spend overseas on their cards, provided that 
funds are not used to purchase stocks, shares or 
other foras of investeent. 
Westpac’s own credit lieit, peculiar to each 
individual's account, naturally applies. 
HHHEKREE 
Q4 I have heard that your interest rate on the 
card is 1.4% per month or 14.8% per year. Do you 
have a one month period during which no interest is 
payable (like Bankcard), or is interest charged fron 
the tise of the transaction? 
(ANZ) The interest rate on a Visa Card is 
18% per year or 1,5% per aonth. The interest rate on 
a cash advance is 0.049312 per day. 
Each Visa account is on a monthly cycle issue and you 
have 25 days from the date of stateaent to sake the 
payment. You can either pay the full balance or the 
miniaua of 5% of the closing balance. 
(NA) For the present our interest rate is 16% 
per annum or 1.5% per aonth, We advise there is a 25 
day free credit period which is the sae as for 
Bankcard, 
CW) Westpac’s MasterCard rate is 1.42% per 
month (16.8% per annua) calculated froa the day 
transactions are debited to your account. There is 
no interest free period. 
HREREEE 
Qs Once ay order is received by the eail-order 
house, how long will it take thea to check that ay 
credit card nuaber is valid? 
(ANZ) Once the mail order merchant receives 
the authority to debit your card he rings his local 
authorisation section who will tell the serchant if 
the sale is approved or declined. 
(NA) Under noraal circuastances isnediate 
authorisation is available. 
(W) Authorisations applicable to MasterCard 
transactions, whether by @ai] order serchant or 


otherwise, are available to scheae registered 
aerchants on Westpac cardholders 24 hours a day, 365 
days a year.  Authorisations generally are 
telephonically available within ainutes, depending on 
distance, tise of day, etc. 

ee 
Q6 After an overseas aail-prder house debits ay 
card for goods, how long will it take for me to 
receive the account? 
(ANZ) To wake a payeent on your Visa Card 
you just go into any branch of the ANZ Bank, present 
your Visa Card or statement and they will process it 
for you. 
(NA) When an item is processed the 
transaction will appear on your next sonthly 
statement. You will then have 25 days to aake 
payaent. 
CW) Tiae for transactions to reach a 
cardholders account may vary, depending on the 
geographical location of the merchant, and whether he 
banks daily, weekly etc. [t can be as quick as one 
week, or conversely, a5 Slow as 4-5 weeks, 

HEHEHE HHE 
Q7 Knowing that ay card is going to be debited, 
is it possible to build up a credit (in advance) on 
ay card which will pay the bill before it is charged? 
If so, how would I do this? 
CANZ) A credit may be placed into your 
account but you do not earn interest while your 
account is in credit. 
(NA) You can make a payaent to your account 
at any tise by lodging it in any Bank displaying the 
MasterCard syabol. There is no reason you can not 
conduct your account in credit, 
CW) Westpac has no plans to prohibit 
cardholders froe repaying their MasterCard accounts 
to achieve e credit balance, and therefore avoid 
interest. 

*Further Comments+# 

Westpac advised that aost MasterCard 
transactions initiated outside Australia, are 
generated through the overseas MasterCard system in 
US dollars. For instance, a transaction in London 
would entail a conversion from sterling pounds to US 
dollars and subsequently to Australian dollars when 
it reached Australia. A USA transaction would 
require only the one conversion -frow US dollars to 
bustralian dollars. 

Some good news is that the high iaport duty on 
software has been dropped. The rate now charged is 
35% of the estimated value of the media (about $3 on 
a $8-10 disk) NOT the software itself. 20% sales tax 
is then added. Documentation is duty free but 202 


salestax is charged. 
HICK 


Sector Editor 


Ken Shiu, (Lugarno, N.S.W) 


SECTOR EDITOR is a DOS 2 based prograw which 
allows you to aodify the bytes within a disk sector 
to your heart’s content. The major difference 
between this editor and others is that it allows you 
to type directly from the keyboard without having to 
convert from ATASCII to deciwa! or hex. 

Since Ken Scalley has already discussed disk 
sectors (see DiSkussion coluan in Inside Info Nos! 
& 12) I'll not worry about explaining them here. 

Before I proceed, a word of CAUTION -this sector 
editor will write directly to your disk. This can do 
more damage than good in the hands of an unknowing 
user, USE IT WITH CARE! !!!! 

OPERATION 

When SECTOR EDITOR is run, you'll be greeted 
with the title screen and proapted to input the 
fuaber of the sector you would like to edit -this 
nuaber aust be between 1 and 720. You'll) then be 
prompted to insert the source disk and press RETURN, 

The contents of that sector will then be loaded 
into memory and the computer will pause aomentarily 
as it converts the sector data. The sector data will 
then be displayed on the screen in the blue window, 
fn the left side of the screen the sector data is 
displayed in hex while the ATASCII equivalent will be 
displayed on the right. All of this is depicted in 
the accoapanying diagras. 

Above the blue window the sector number and 
nuaber of program bytes contained in the sector will 
be displayed. The byte value will only be true for 
DOS file sectors (sectors 4-359 and 369-720), rather 
than file management sectors such as the BOOT sectors 
(sectors I[-3), the Volume Table of Contents (VTOC) 
sector (sector 360) and the Disk Directory sectors 
{sectors 361-348), 

Below the blue window the current mode will be 
shown -initially this will be the cursor key aode, 
In all there are six aodes:- EDIT DATA, CURSOR KEYS, 
SEARCH, NEW SECTOR, WRITE DATA and EXIT. Use SELECT 
to cycle forward through the sodes and OPTION to 
cycle backwards through the sodes, then hit START to 
engage the displayed aode. 

CURSOR KEY MODE 

The cursor is in the form of a pair of inverse 
brackets "C J” in the hex (sector) data area. Use 
the cursor keys to move about the sector data -you 
don't need to hold down the CONTROL key. 

EDIT DATA MODE 

To edit the sector data, press SELECT or OPTION 
until "EDIT DATA’ appears. Assuming that you have 
already positioned the cursor to the first byte you 
want to edit, simply press START and you will enter 
the EDIT DATA mode. 

Type in your new data and you will see the data 
changing -the ATASCII information will autoaatically 
updated to read exactly as you have typed. The best 
use of the editing aode is to create indentification 
aessages in sector 720 (which is unused by DOS 2) or 
changing the disk directory, Exit the EDIT mode by 
entering any other aode. 








SEARCH MODE 

To search for the presence of a particular byte, 
enter the SEARCH mode using SELECT or OPTION and 
START. You will be prompted to press A, H, or D (for 
ATASCII, Hex or Decimal input), then enter the byte 
to be searched for. 

A search will be ade with all occurrences of 
the byte being highlighted in inverse video. 

NEW SECTOR MODE 

To edit another sector, press START when NEW 
SECTOR appears (while cycling through the options) 
the prograr will then re-run froa the start. 

WRITE DATA 

To write your new (edited) sector to disk, cycle 
through the aodes until WRITE DATA appears. Press 
START and you will be prompted to press RETURN to 
write to disk or press any other key to abort the 
write procedure. If you press RETURN the new data 
will be written to disk -be sure that you really do 
want to write the new data to disk and that you have 
the correct disk in your drive, otherwise you WILL 
damage your disk files!!! 

After writing to disk, the program will retain 
the current sector data. You can write this data to 
as aany disks as you like -very handy for putting the 
same label into the saee sector of every disk. 

EXIT 

Exit the program by entering the exit aode. 
Press Y to confire and then OPTION, SELECT or START 
to reboot, enter 90S menu, return to BASIC 
respectively. 

Well, that about suas up the features of SECTOR 
EDITOR. 
SECTOR EDITOR 
SECTOR: 361 8BYTES:@ 


~SECTOR :DATA- ATASCIT 
{i62i]27 90 04 00 44 4F 53 b' 4 ¥D05 
28 26 28 26 28 53 59 53 5¥5 
62 2A 68 ZB @6 44 55 58 b¥+ ¥DUP 
2@ 268 28 20 20 53 59 53 5¥5 
62 33 68 55 86 46 49 4¢ bS*UVFIL 
45 4E 41 4D 45 45 58 54 ENAMEEXT 
62 33 66 88 80 40 4F 43 b3W ¥LOCc 
4B 45 44 20 20 42 41 53 KED. BAS 
42 33 08 BB 0@ 43 55 52 B3¥AYCUR 
o2 45 4£ 54 28 42 41 53 RENT BAS 
88 33 6@ EE 66 44 45 4C 3 4D EL 
45 54 45 44 20 42 41 53 ETED BAS 
62 33 08 21 G1 53 45 43 b3¥! KSEC 
34 45 44 49 54 42 41 93 TEDITBAS 
86 86 G6 GG OG 6B 86 88 vevereey 
86 66 60 86 88 66 86 48 VERHVENY 


CHANGE MODE: (haeciJ- -ve Ramawi- tve 
START = EXECUTE MODE 
MODE — CURSOR KEYS 


DIAGRAM: THE FIRST SECTOR OF A DOS 2 DISK DIRECTORY. EACH 
FILE ENTRY OCCUPIES 16 BYTES (2 LINES). THE FIRST FILE BYTE 
INDICATES THE FILE’S 8TATUS. A ‘b’ INDICATES A LOCKED FILE. 
A °B’ INDICATES A CURRENT FILE. AN INVERSE HEART INDICATES 
THE FILE HAS BEEN DELETED -CHANGING THIS TO ‘B’ OR ‘b* WILL 
ENABLE YOU TO LOAD THE FILE AND RESAVE IT, RESTORING IT IF IT 


HASN'T BEEN OVERWRITTEN. 


1 REM SORRHASROSRRORGEOROSHAGEOCSEEE 

2 REN @ SECTOR EDITOR ] 

3 REM @ by Ken Shiu a 

4 REN @ Published by Atari Computer @ 

5 REN @ «= Enthusiasts (N.8.W.) ‘ 

& REM @ August 1984 é 

7 OREM GOGRGHERERRTEOESEGROUHAEREGTIEE 

10 BRAPHICS OsPOKE 710, {55sPOKE 709,03 

POKE 712,10:POKE 708,0sPOKE 711,50 

20 DIM 8$(128) ,E$(20) HEX$ (256) ,H#{16) 

yHi#(2) ,M$(46) sPOKE 62,0:0PEN #1,4,0,° 

Ks" 

30 POKE 16,64:POKE 53774,64 

40 FOR T=1 10 128:8$(7,T)=" "NEXT Ts 

$e"EDIT DATA CURSOR KEYSSEARCH NE 

W SECTOR WRITE DATA EXIT a‘ 

50 RESTORE 980:FOR T=1664 TO 1668:READ 
AzPOKE T,AsNEXT T 

60 M@ADR(S$) sHI=INT(M/256) sLOSM-2568H] 

POKE 752, 13H$="0123456789ABCDEF* 

70 DL=PEEK (560) +PEEK (561) #256+4:POKE D 

L-1,70:POKE DL#2,6:POKE DL+23,63POKE D 

L+24,6 

80 ? CHRS(125)3° 
BY KEN SHIU" 

90 TRAP 9OsPOSITION 0,212? CHRS(253);" 

WHICH SECTOR ";:INPUT SECsIF SEC<1 OR 

SEC)720 THEN 90 

100 C=82:60SUB 900 

110 IF PEEK(771)<>1 THEN GOTO 940 

120 BYT=ASC(8$(128))sIF BYT>128 THEN B 

YT=BYT~128 

130 POSITION 20,017 "SECTOR:  ";CHRS( 

30) pCHRS (30) ;CHRS (30) SEC; sPOKE 85,321 

? "BYTES: ";BYT 

140 POSITION 0,211? * 

MOFkiNgss. "f 

150 FOR Tal TO 12BsAeASC(S#{T,T)) aBetn 

T(A/S6) 1CaA-Bal6 

160 H1S(1, L)2HS (Bel Bel) sHi$(2,2) Hs iC 

41, C+i) sHEX$(LEN(HEN$) +1) SHISSNEXT T 

170 POSITION 6,12? "-SECTOR DATA-":POS 

ITION 30,437 "ATASCII® 

180 CelsFOR Be3 70 18:FOR A=3 TO 24 ST 

EP 3 

190 POSITION A,B:? HEXS(C,C+1) sCeCe2:N 

EXT AsNEXT B 

200 CelsFOR B=3 TO 18:FOR A=30 TO 373P 

OSITION A,Bs? CHR$(27) sS${C,C);sCaCels 

NEXT A:NEXT B 

210 POSITION 1,20:? "CHANGE MODE: OPTI 

Ol= -ve SELECT tve" sMODE=122X1221 Yi=3 

220 POSITION X1,¥12? "C";CHRS(31) sCHRS 

(31)5 "7" 

230 POSITION 0,21:7 "start = execute 2 

ode"s3IF MODEL THEN MODE=56 

240 IF MODE)SS THEN MODE=! 

250 POSITION 20,2137 " aode = ";M$(MOD 

E,MODE+10) sPOKE 764,255 

260 TRAP 940: IF PEEK(744)<)255 THEN GE 

T #4, A:60T0 310 

270 IF PEEK(53279)"5 THEN FOR T#i 10 3 

OrSOUND 0,150, 10,8:NEXT TrSOUND 0,0,0, 


sector editor 





OsMODE=NODE+11:60T0 230 

280 IF PEEK(53279)=3 THEN FOR T=l 10 3 
O:SOUND 0,150,10,8:NEXT TrSOUND 0,0,0, 
OrMODE=NODE-11160T0 230 

290 IF PEEK(53279)=6 THEN 340 

300 G0TO 260 

310 IF MODE={ THEN BOSUB 720 

320 IF MODE®12 THEN GOSUB 400 

330 GOTO 250 

340 IF MODE=23 THEN 480 

350 IF MODE=34 THEN RUN 

360 IF MODE=45 THEN 890 

370 IF MODE®56 THEN 790 

380 POSITION 0,213? ° 

"16070 250 

390 REM CURSOR KEYS 

400 TF AC>4S AND AC)61 AND AC42 AND AD 
43 THEN RETURN 

410 POSITION Xi,Vie? * ";CHRS(31) ;CHRS 
(31057 7} 

420 IF Ae45 THEN Vis¥i-d:1F Vic THEN 

vi=18 

430 IF Ae61 THEN YieVielsIF Y1)18 THEN 
Yie3 

440 IF A=43 THEN X1@Xi-3e IF X1¢2 THEN 
X1=23 

450 IF As42 THEN Xi=Xi+3s1F X4>23 THEN 
X1e2 

460 POSITION Xi,¥in? "C";CHRS (31) ;CHRS 
(310°)? 2RETURN 

470 REM SEARCH 

480 TalsCeO:POSITION 0,212? CHRE(156)5 

CHRE (156) "FORMAT AEX/GEC/aSC11"y GET 
G1 ,ArIF A=72 OR A=d@ OR AadS THEN 500 
490 2 CHRS(253):60T0 480 

500 TRAP SOO:FLAG#AsPOSITION 0,241? CH 

R$ (156); "SEARCH FOR"): INPUT HIE 

510 IF A=68 THEN 400 

520 IF Aw65 THEN 610 

530 IF LEN(HI$)=1 THEN ES=HISsHi$="0" 

His (LEN(Hi#) +1) =E$ 

540 IF HISSHEXS(T,T#1) THEN 570 

550 TeT¢2:1F T#257 THEN 590 

560 GOTO 540 

570 BINT (1/16) sAsT-Be1b3 A= INT (A/2) 83+ 
2:B*B+3:POSITION A,BsA=ASC(HEXS(T,T))3 
AsA+1 26: E$=CHRS (A) 

580 BASC (HEXS(T+s , T+1)) +1283 ES (LEN (ES 
)+1)sCHRS(B)3? ° ";£$:C=1:6070 550 
590 GOTO 660 

600 HeINT(VAL(Hi$)) sHiSeCHRS(H) IF HCO 
OR H)255 THEN 500 

610 IF HissS$(T,T) THEN TeT-i160T0 640 

620 TaT+isIF T#129 THEN 660 

630 GOTO 610 

640 BEINT (1/8) sAeT~BeBs AeAt3+2: BsB+31P 
OSITION A,BsT=T+i:AsASC (HENS (T#2-1 , T#2 
~1))1AmAt128 

650 ESeCHR$ (A): BeASC (HEX$(T#2,T#2) )1Be 
B+i2BrE$(LEN(E$) +1) =CHR$(B)3? * "sE$sC 

*1160T0 620 

60 IF Cal THEN 220 

670 POSITION 0,211? CHRS (156) ;CHRE (253 


A 


}s" UNABLE TO FIND: "2 IF FLAG=68 THEN 
24H 

680 IF FLAB265 THEN ? ° 

C(H1$))")* 

690 IF FLAG=72 THEN ? °S") HIS 

700 FOR T=1 TO 1000 NEXT T8070 220 

710 REM EDIT 

720 Tad¥i-3) 08s Tey ed (X44) /3) 08817 T)e 

CHRS(A) sBeINT(A/L6) sCuA-Beld 

730 HiSsH$ (B+) Bi) 1H1$(2,2)=H$ (C+1 C+ 
1) HENS (T#2-1 ,T#2)"Hi$sPOSITION Xf, Vis 
2" "pHEX$(T21,T#2))" "y 

740 TeT-(¥1-S)eB POSITION 2947, ¥11? CH 

R$ (27) yCHRS(A) 

750 XdeXi+3 IF XL>23 THEN VieVielsXte2 

760 IF Yi>18 THEN Yie3 

770 POSITION X1,Vis? "C"sCHRS(31) sCHRE 
(31) 52"; sRETURN 

780 REM EXIT 

790 ? CHR$(125) 3" 

BY KEN SHI" 

800 POSITION 13,71? "-QUIT PROGRAN-":? 
3? CHRS(127)3° PRESS -Y- TO CONFIRM 
"IGET @1,AsTF AC>B9 THEN RUN 

B10 7 1? CHRS{127);CHRS(30) "PRESS GPT 

TON TO REBOOT DISK.* 

820 7 :? CHRS(127);CHRS(30) ; “PRESS SEL 

ECT TO ENTER DOS." 

830 7 1? CHRS{127);CHRS{30) ; "PRESS STA 

AT TO ENTER BASIC." 

B40 IF PEEK(53279)=3 THEN X=USR (59487) 

850 IF PEEK(53279)25 THEN 08 

B&O IF PEEK(53279)=6 THEN GRAPHICS O1P 

OKE 82,0:POKE 752,0:POKE 580,01POKE 14 
s922POKE 53774, 192:END 

870 G0TO 840 

880 REM READ/HRITE 

890 Ce87:POSITION 0,213? " retura = WR 
ITE DATAany key = ABORT  "3:B0SUB 910 
16070 230 

900 POSITION 0,2137 " INSERT DISK AND 

PRESS retura = 

910 BET @1,Ar3F ACDI55 THEN POP :60T0 
230 

920 POKE 779, INT(SEC/256) sPOKE 778, INT 
((SEC/256~-INT(SEC/256)) #256) sPOKE 769, 
| 

930 POKE 772,LO:POKE 773,HIsPOKE 770,C 
I XsUSR (1664) sRETURN 

940 ST=PEEK(771) :REBTORE 990: TRAP 4000 

0 

950 READ E,E$ 

960 IF E=ST THEN ? CHR$(125):POSITION 
INT((40-(B+LEN(E$)))/2) 1087 "ERRORS 
*sES:FOR Tel TO 1000:NEXT TsRUN 

970 GOTO 950 

980 DATA 104,32,83,228,96 

990 DATA 138, DEVICE TIMEOUT, 139, DEVICE 
WAK, 140, SERIAL FRAME ERROR, 142,SERIAL 
BUS OVERRRUN 

1000 DATA 143, CHECKSUM ERROR, 144, DEVIC 
E DONE ERROR 


CHRE ("7A 
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InterACTION! 


ACTION! Programming Language 
by Ken Scalley (Baulkhae Hills, N.S.#.) 
$US99.00 from OSS Precision Software. 


Ny sain interest since I bought ay Atari has 
been in writing utility programs, to aake it easier 
for me to do other things (aainly write aore 
utilities!). So when I started to read the reviens 
of the new language for the Atari -ACTION!, I 
sortgaged the dog and placed ay order. 

Less than two weeks later I received ay package, 
atter a slight detour through Custoas. It contained 
the ACTION! cartridge and two optional disks -I was 
into ACTION!, 

The ACTION! cartridge consists of four distinct 
partsi- 

MONITOR -the part which runs the whole show. 

EDITOR -this is used to input your source 
code, and to edit it. 

COMPILER -which converts your source code to 
aachine code. 

RUN-TIME PACKAGE -this contains the support to 
run your compiled progras. Standard functions, like 
print and graphics are done by a call to this 
package. 





The MONITOR actually switches the other three 
parts in and out of aemory, so that only one of the 
three (together with the MONITOR) is in memory at any 
one time. This weans you have a 16K cartridge but 
use only 8K of your precious seaory, 

ACTION! is a true compiled language, that is, 
the source code you enter is converted to pure 
machine code and then run -this being distinct froa 
an interpretive language like Atari BASIC, which 
converts each line each tine it is used. A compiled 
language generally gives you isproved execution 
speed, at the expense of slower prograe developaent 
tine -it aust be fully converted each tise you want 
to test it. 

ACTION! is avery different language to BABIC 
“not completely coapletely different though. I have 
not had a great deal of trouble learning it, but a 
few iteas are still giving ae some trouble. 

To ay way of thinking, the main advantage of 
ACTION! is its speed of execution -it can easily run 
100 to 200 times faster than Atari BASIC, depending 
on the prograa being run. I have not found anything 
that Atari BASIC does faster than ACTION!. 

As a compiled language, the coapilation tise is 
incredible -compiling source code from semory to 
compiled code in meaory never seeas to take sore than 
a few seconds and I have written some prograas that 
are pushing total semory size. As a prograsaing 
language, it has superb constructs, including:- 

If. THEN, .ELSE 
WHILE..DO 
DO. UNTIL 


and can be structured to make an easily read code -no 
more aessy §070's, etc. It has commands to aove 
blocks of memory, initialise a block, etc. 

There are very few disadvantages with ACTION!, 
As aentioned above, source code aust be compiled each 
tiae when testing but cospiled code can be saved to 
disk for subsequent running when tested. String 
handling is perhaps not as easy, with string length 
being lisited to 255 characters -but I have aanaged 
to do anything I have wanted to do with strings in 
ACTION! and wore quickly than with BASIC. 

Perhaps the main disadvantage is (as with any new 
language) that it aust be learned -but it is well 
worth it. 

At this stage, 2 word must be said about the 
editor {not you Chris!). It is the best editor I have 
ever worked with. Commands include ## tabs. 

## find text. 

## rejoin lines, 

## go to end of file. 
## go to end of line. 
#& go to start of file. 
#8 go to start of line. 

## sove blocks of code. 

## undo corrections to a line. 
#t break a line in the aiddle, 
#t replace text with other text. 

## maxiaua line lengths of 240(!) characters. 

## tags -aark a line, and juap back iseediately 

when editing. 

## windows -edit two files in aeaory at once! 

Even copy froa one file to another save the file 
to disk, and it reaembers the naae cf your file ~just 
hit return. All this and auch sore. It rivals a 
word-processor ~this article is being written using 
the editor. 

Editor's Note: It was very easy to edit but it had 
to be formatted for printing in Inside Info. After 
having seen ACTION! in action I can't help but wonder 
why the makers of ACTION! haven't produced a word 
processor along similar lines!!!3 

I have only had a few probleas that could 
possibly be attributed to "bugs", and they are fairly 
obscure probleas. Overall] the package is superbly 
put together, and wel) supported. 

So, if you are looking for a language that 
offers sore “high level® capabilities than BASIC, 
incredible speed without having to resort to sachine 
code at all, a wonderful editor, and are prepared to 
spend a little tiae learning a new language.. 


get into ACTION! ce st sk 


Gobbler 


by Sydney Brown. 


(Rockhaspton, Queens)and) 


Reprinted from Eugene ACE Newsletter August/Septeaber 1982. 


You are inside a maze collecting gold nuggets, 
but you have a problem -the gold you are collecting 
is not yours, it belongs to the Globs. As you can 
imagine, the Globs are not at all pleased and try to 
catch you. Your aia is to collect all the gold you 
can before the Globs can catch you! There are 
two screens, the first is a maze filled with gold 
nuggets and the second is an open area filled with 
nuggets. You start with one Glob but an extra Glob 
appears each tise you reach a higher level, and you 
can be sure that they'll] keep you on you toes! 

You only have 4 chances to collect all of the 
gold using joystick nuaber { to control your sailey, 
Each nugget you pick up will score 1 point while the 
bag of gold which appears fro time to tine will earn 
you 20 points. You get bonus of {00 for each 
completed eaze. 


SCORES??? #LEVELS Ga 
TEE ETE TER EELEELELLLECie 
BE © i ie 






The Gobbler prograe uses eostly standard 
prograsaing eethods -a complete description follows: - 
Lines 10-120 display the game instructions. 

Lines 130-160 redefine part of the character set 
and copies the whole character set to a new area of 
menory. The coaputer is then redirected froa the ROM 
based character set to the new, redefined characters. 
T have reserved two pages (512 bytes) at the top of 
user RAN and placed the new character set up there by 
reading the DATA statements in lines 1180-1230 and 


placing thea in the correct position and order, Each 
nuaber represents the binary code for one line of one 
character. 

Lines 170-230 initialise all the variables and 
modify the basic aaze for the level you have reached, 

Lines 340-430 deteraine the number of Olobs 
which will be in the level you have reached. 

Lines 440-740 give the Globs their liaited 
intelligence and control their aovenent. 

Lines 750-820 produce the sailes on the Globs 
and the shocked look on the aan. Instead of having 
extra characters I just POKEd the slight variation 
directly into the new character set to produce the 
desired ‘facial’ expression. This changes the 
characters siaply and quickly without having to PLOT 
new characters into the positions of the Globs or the 
aan. 

Lines 870-880 are used in connection with lines 
890-1070 to display the end of a level and to step to 
the next level. 

Lines 890-1030 check for when the ean hits a 
nugget, a bag of gold or a tunnel at the edge of the 
screen, 

Lines 1080-1150 draw the saze and boundaries for 
each level. 

Lines 1160-1170 #i]1] all of the blank areas with 
nuggets. 


SCORE?S?3 LEVEL. ex 
BEER ERRE REE RE Re 





> 


1 REM SOGRASSROSERITSROSEESIERSIIEES 
2 REM @ GOBBLER 4 
3 REM @ by Sydney Brown 4 
4 REN @ Eugene A.C.E. Newsletter # 
S REM @ August/Septesber 1982 @ 
& REM # Reprinted by A.C.E,(N.S.W.) & 
7 REM 4 August 1984 4 
B OREM QhGRGSRESGGERASGSCS0S00200004 
10 POKE 82,8:6RAPHICE O:POKE 710,2243P 
OKE 709,14:POKE 752, i:DIM C(5) ,Hd5) ,V( 
3) 

20 2 CHRS(17);sFOR T=1 TO 23:7 CHRS(1B 
VpsNEXT T2? CHRS(5)2? "I BOBBL 
ER i" 

30 7 CHRS(2h)y2FOR If TO 232? CHRS(18 
)pENEXT 127 CHRS(3)sPOKE 82,237 3? "YO 


U ARE INSIDE A MAZE COLLECTING GOLD" 
40 2 "NUGGETS, BUT YOU HAVE A PROBLEM. 
"1? "THE GOLD YOU ARE COLLECTING 18 NO 
T°’? "YOURS, IT BELONGS TO THE GLOBS." 
50 ? "AS YOU CAN IMAGINE, THE GLOBS AR 
E NOT"s? “AT ALL PLEASED AND TRY TO CA 
TCH YOU." 

60 7? "YOU TRY TO COLLECT ALL THE BOLD 
YOU"s? "CAN BEFORE YOU ARE CAUGHT!":? 
3? "BACH LEVEL 18 MORE DIFFICULT. YOU" 
70 ? "HAVE 4 CHANCES TO COLLECT THE 60 
LO. . 

80 ? "USE JOYSTICK 1 TO CONTROL YOUR 8 
MILEY. "y3? "EACH NUGGET SCORES 1 POINT 
& THE BAG's? "OF GOLD SCORES 20," 

90 7.12 "A BONUS OF 100 FOR A COMPLETE 


/ 


D MAZE.":? 3? "by Sydney Brown-Fun-Co 
"3? "given to ACE meabers® 

100 ? "Press START to start the gene’; 
WPOKE 53279,8 

110 IF PEEK(53279)<>& THEN 110 

120 POKE 106,PEEK(106)-2:6RAPHICS 182? 
$43" setting up" 

130 POKE 710,140sPOKE 708, 143POKE 709, 

236:POKE 711,222: A=PEEK (106) #256: FOR B 

=Q TO Sil 

140 IF B>319 AND BC352 THEN READ DsPOK 

E A+B, DiNEXT B 

150 IF B>347 AND BC374 OR B>383 AND BC 

392 THEN READ DiPOKE A+B, D:NEXT B 

160 IZ=PEEK(57344¢B) :POKE A+B, 721 S0UND 
0,22, 10,8:NEXT BsPOKE 754, PEEK (104) 


(Cay 


170 Ka19rYaOuAX=OsLelySeOsPOSITION 0,0 
17 b"scored — LEVELLJiii" 
180 COLOR 234:PLOT X,YsH=9:Ve0sND=0 
190 ON L GOSUB 1080,1160,1080, 1160, 108 
0, 1160, 1080, 1160, 1080, 1160, 1080, 1140, 4 
080, 1160, 1080, 1140,1080, 1160, 1080, 1140 
1080, 1160, 1080, 1160 
200 COLOR 32:PLOT 16+AX,0:POSITION 15, 
O17 #4;Lp21F L>10 AND L/2<>INT(L/2) TH 
EN COLOR 72:PLOT 0,:PLOT 19,6:ND=2 
240 EX=22: 4218: ¥=6:C¥eL:COLOR 234:PLOT 
X,YeIF L)12 THEN COLOR 72:PLOT 10,3:P 
LOT 10,9:ND=eND#2 
220 HAL)ede(1)96rC(1) 235962) 010102 
}9401C(2)=235sH(3) 061 V(3)#21C(3) 92351 
F L)14 THEN COLOR 72:PLOT 2,6:ND=ND¢! 
230 Hi4)a1BV(4)=3iC(4) @2358H (5) eV 
yagsC(5)=235:1F L)16 THEN COLOR 72:PLO 
T 14, 60ND=ND#i 
240 ST=STICK{O) 
250 IF STwid AND X<1 THEN LOCATE 19,Y, 
IsIF 2232 OR 2#235 OR Z=112 THEN GOSUB 
B90: Kek-LsIF X40 THEN Xai9 
260 IF STwit THEN LOCATE X-1,¥,J0IF Ze 
32 OR 7®235 OR Z=112 THEN GOSUB 8903Xe 
X-tn1F X40 THEN X19 
270 IF ST#7 AND X)18 THEN LOCATE 0,Y,2 
1IF 1=32 OR 7=235 OR Z=112 THEN GOSUB 
Q90:KeX+isIF X19 THEN X20 
280 IF ST27 THEN LOCATE X+1,¥,Zs1F Z=3 
2 OR 1#235 OR Z=112 THEN GOSUB 690: X=X 
+1n1F X19 THEN X20 
290 IF STeid THEN LOCATE X,Y-1,2:1F Ze 
32 OR 12235 OR Z=112 THEN GOSUB 890: Y= 
Yd 
300 IF ST#13 THEN LOCATE X,V#1,Zs1F Z* 
32 OR 1=235 OR Zeii2 THEN GOSUB 890: ¥= 
Yel 
310 IF STC15 THEN COLOR 234:PLOT X,Y 
320 EX@EX¢i IF EX)100 THEN HeINT(RND(O 
1817)411VeINT(RND (0) #9) 413LOCATE H,V,Z 
1IF 1=32 THEN COLOR 142:PLOT H,VsEX=0 
330 IF EX=20 THEN COLOR 32:PLOT H,VsCO 
LOR 234sPLOT X,YiPOKE 77,0 
340 CYecye{aIF CY)S THEN CYm1 
350 ON L GOTO 400,400,390,390,380,380, 
370,370,360 ,360,360,360, 360,360,360, 36 
0 


360 IF CY=5 THEN NeS:GOSUB 440:60T0 24 
7 IF C¥e4 THEN Ne4:G0SUB 440:60T0 43 
7 IF C¥#3 THEN N=3:GOSUB 44026070 43 
= IF CY#2 THEN N=2:60SUB 440:G0T0 42 
mr IF CY=1 THEN N=1:G0SUB 440:60TO 41 
ff IF L={ OR L=2 THEN FOR W=1 TO 103N 
EXT W 


420 IF Le3 OR L=4 THEN FOR Wel TO SsNE 
ITH 

430 GOTO 240 

440 IF YVAN) THEN 610 

450 IF XCH(N) THEN 540 

460 IF YCVIN) THEN 680 

470 LOCATE HIN) #1,V«N) Zn IF 2=234 THEN 
750 

480 IF 2=32 OR 2=235 THEN COLOR C(N)sP 

LOT HON) VAN) 2HONDSHIN) #12COLOR 2013PL 

OT HON) ,ViN)1C(N)®7: RETURN 

490 LOCATE H(N) ,V(N)#1,,2 

500 IF Z=32 OR 2e235 THEN COLOR C(N)sP 

LOT HAN) ,V(N)3V4N)=V(N) #12 COLOR 2012PL 

OT HIN) V(ND CCN) #7) RETURN 

510 LOCATE HAN) ,VIN)=1,2 

520 IF 2832 OR 2235 THEN COLOR CNP 

LOT HIN) ,V(N)1V(N)=V(N) =12COLOR 2012PL 

OT HIN) ,V«N) SC(N) #75 RETURN 

530 RETURN 

S40 LOCATE HIN)-1,V«N) ,Z1IF 2=234 THEN 
750 

550 IF 232 OR 2#235 THEN COLOR C{N)sP 

LOT HN) ,V(N)H(N)SHIN) 12 COLOR 2012PL 

OT HN) ,V(N) sC(N) #7: RETURN 

540 LOCATE HIN) ,V(N) #1,2 

570 IF 1#32 OR 2235 THEN COLOR C(N)iP 

LOT HIN) V«NDSV(N)=V(N) #13COLOR 2012PL 

OT HIN) , VN) 3C(N)=72 RETURN 

580 LOCATE HN) ,V(N)-1,2 

590 IF 2232 OR #235 THEN COLOR CIN)sP 

LOT HON) ,V{N)sV(N)=V(N)-12COLOR 2013PL 

OT HIN) ,V(N)2C(N)=7s RETURN 

600. RETURN 

G10 LOCATE HIND ,V(N)#1,28IF Z*234 THEN 
750 

620 IF 2=32 OR 2=235 THEN COLOR C(N)sP 

LOT HIN) ,V(N):V(N)=Y(N)#12COLOR 2083PL 

OT HIN) V(N):C(N)®7: RETURN 

630 IF H(ND<19 THEN LOCATE HAN) +1, V4N) 
1 
q 

640 IF (Z=32 OR 2=235) AND HIN)<19 THE 

W COLOR C(N)sPLOT HIN) ,V(N) tH(RD=H(N) ¢ 
12COLOR 2012PLOT HIND ,V(N)SC(N) =Z2RETU 

RN 

650 LOCATE HN)-1,V(N) 2 

660 IF 2=32 OR 2=235 THEN COLOR C(N)9P 

LOT HON) ,V(NDSHEN)@H(N) =L3COLOR 2042PL 

OT HCN) ,V(N)1C(N) #73 RETURN 

670. RETURN 

680 LOCATE HIN) ,V(N)=1,Z:1F Z=234 THEN 
750 

690 IF 2832 OR 22235 THEN COLOR C(NDsP 

LOT HAN) ,V(N) sV(N)®YN)=L2COLOR 201:PL 

OT HCN) ,V(N) sC(N}=Z2RETURN 

700 LOCATE H(N)+1,¥{N) ,Z 

710 IF 2232 OR 2=235 THEN COLOR C(N):P 

LOT HIN) VND SHON) SH(M) #12 COLOR 2012PL 
OT HAN) ,V(N):C(N)=72RETURN 

720 LOCATE H(N)-1,V(N) ,2Z 


ff 


730 IF 132 OR 18235 THEN COLOR CIN) iP 

LOT HAN) VIN) SH(ND=H(N)-13COLOR 2012PL 

OT HCN) ,VAN) sC(N)©Z2 RETURN 

740 RETURN 

750 PP=PEEK (106) #256+332sPOKE PP, 1891P 

OKE PP+i,195:POKE PP+8,2311FOR W=0 TO 

160 STEP 10:FOR WW=¥ TO W+20 STEP 2 

760 SOUND 0,WW,10,1031F WH>WE? THEN CO 

LOR 10é:PLOT X,Y 

770 IF WHCW+10 THEN COLOR 234:PLOT X,Y 

780 NEXT WHINEXT WsAX@AX+! 

790 COLOR 238:PLOT X,YiFOR W=250 TO § 

STEP -7:G0UND O,W,2,24:NEXT WsCOLOR 32 

IPLOT X,Y 

800 POKE PP, L95sPOKE PP+i, 189:POKE PP+ 

8, 153:S0UND 0,0,0,0 

B10 IF AX<4 THEN 180 

820 COLOR 238:PLOT X,YsPOSITION 4,1117 
#6; "gameHHHHover "sPOKE 53279,8 

B30 FOR W=1 TO 100:NEXT WsFOR WW! TO 

3:FOR WaQ TO 255 STEP 2:SOUND 0,¥,10,! 

OSSOUND 1,255-W,10,102NEXT WsNEXT WH 

840 SOUND 0,0,0,0:80UND 1,0,0,0 

850 IF PEEK(53279)<>4 THEN 850 

B60 POSITION 0,02? @4;CHRS$(125)36070 3 

70 

870 LeL+isPOSITION 15,027 #431 

880 GOTO 180 

B70 COLOR 32:PLOT X,YsIF 2®32 THEN RET 

URN 

900 IF Z=i12 THEN 940 

910 SOUND 0,49,10,10:S=S+isND=ND+11P0S 

ITION 5,02? #6;831F L/2¢>INT(L/2) AND 

ND>i05 THEN 980 

920 IF L/2sINT{L/2) AND NDD160 THEN 98 

0 

930 SOUND 0,0,0,0:RETURN 

940 SaS¢20sPOSITION 5,017 4; 8:FOR Wie 

1 10 7:FOR WO TO 50 STEP 10:SOUND 0,8 
110,14 

950 IF Wel OR WHe3 OR Wed OR Wi=7 TH 

EN COLOR 234:PLOT H,V 

960 IF WW=2 OR Wied OR Wed THEN COLOR 
112:PLOT H,¥ 

970 NEXT WiNEXT WHsSOUND 0,0,0,0:RETUR 

N 

980 LOCATE X,Yti,ZiIF 2235 THEN Y=¥+i 
1BOTO 1040 

990 LOCATE X,Y-i,Z31F 2#235 THEN YeY-i 
160TO 1040 

1000 IF X¢19 THEN LOCATE X+i,¥,Z01F z= 
235 THEN X=X+1:6070 1040 

1010 IF XO THEN LOCATE X-1,¥,Z21F 2=2 

35 THEN Y=X-t:60TO 1040 

1020 LOCATE 0,6,2:1F 22235 THEN X=0:Y= 
636070 1040 

1030 LOCATE 19,6,Z:IF Z#235 THEN X=19: 

Ye 

1040 COLOR 234:PLOT X,¥sFOR W=190 TO 0 
STEP -5:SOUND 0,W,10,10:SOUND 1,Wti,! 
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0,1031F W/1O=INT(W/10) THEN POKE 712,1 
a4 

1050 IF (W-S)/10@INT((W-5)/10) THEN PO 
KE 712,0 ' 

1060 NEXT WeS=S+L00sPOSITION 5,03? 863 
§ 

1070 SOUND 0,0,0,0sSOUND 1,0,0,0:POKE 

712,0160T0 870 

1080 COLOR 72:PLOT 0,1:DRAWTO 19,12DRA 
WTO 19,11:DRANTO 0,11:DRAWTO 0,1:PLOT 

4,2:PLOT 4,3:PLOT 4,10:PLOT 4,9 

1090 PLOT 2,3:DRAWTO 2,5:DRANTO 4,5sPL 
OT 2,9:DRAWTO 2,7:DRAWTO 4,7:PLOT 8,33 
PLOT 9,3:PLOT 8,9:PLOT 9,9:PLOT 4,3 


1100 DRAWTO 6,5:DRAWTO 8,5:PLOT 6,92DR 
ANTO 6,7:DRAWTO 8,79PLOT 11,3:PLOT 12, 
SsPLOT 12,4sPLOT 11,9:PLOT 12,9 

1410 PLOT 12,@sPLOT 10,5:PLOT 10,7:PLO 
T 10,6sDRAWTO 12,6:PLOT 17,3:DRANTO 14 
 SiDRAWTO 14,5:PLOT 14,7:DRAWTO 14,9 
1120 DRANTO 17,9sPLOT 16,5:DRAWTO 18,5 
1PLOT 16,7:DRAWTO 18,7 

1130 COLOR 235:FOR X=! 10 18:FOR Y=2 
0 10:LOCATE ¥,Y,2s1F 2232 OR Z)72 THEN 
PLOT X,Y 

1140 NEXT YNEXT X:PLOT 19,6:PLOT 0,6: 
COLOR 234:PLOT 18,6 

1150 RETURN 


1140 COLOR 2351FOR X=! TO 181FOR Y=2 T 
O 10sPLOT X,YaNEXT YaNEXT X9COLOR 721P 
LOT 0,6sPLOT 19,6 

1170 RETURN 

1180 DATA 255,129,129, 129,129,129, 129, 
255 

1190 DATA 60,126,219, 255,195, 189,255, 1 
70 

1200 DATA 60,126,219, 255,153,195, 102,6 
0 


1210 DATA 0,0,0,24,24,0,0,0 
1220 DATA 145,82, 20,120,27,156,42,65 
1230 DATA G,12,14,56, 124,254, 254,124 


BOOK REVIEW 


Rainy Day Activities for the Atari. 


By Nancy Mayer. 


Reviewed by Michael Richardson, 


I don't know any background information about 
Nancy Mayer but from the way this book is written, it 
is obvious that she aust have some young children. 

"Rainy Day Activities for the Atari" is suitable 
for any children between the ages of three and nine 
years. It contains over fifty prograss, none being 
aore than twenty lines long, These prograes include 
ganes, letter gases, word games, names, nuaber gases, 
designs, colours, ausic and free play. All of the 
games sake use of the keyboard or joysticks except 
for one called “Paddle Play" which (of course) 
utilises paddles. 

The book begins with a guide to parents which | 
found very helpful. It also has a HELP PAGE which 
lists some comaon probleas and how to solve thes. 
Some uncoaaon syabols are used in the progras 
listings and so a Glossary of Syabols is included to 
explain the keystrokes necessary to display the 
syabol on the screen. 


| a 
ror 
DISK BASED PROGRAMS: $15 each. 


A.E., Space Shuttle, Zork I, Space Eggs, Mission 

Asteroid, Way Out, Bandits, Ulysses and the Golden 

Fleece, Soft Porn Adventure, Sneakers, Threshold. 

Also Software Automatic Mouth (SAM) for $25. 

All original with documentation, 
Contact Paul Benjamin on 

Bay, N.5.W.). 





{02)320-751 (Double 
HRNRE - 
CASSETTE BASED PROGRAMS: $15.00 each. 
Apple Panic, Rear Guard, Road Racer, Filing Clerk, 
Space Invaders, Teacher's Pet, Vaults of Zurich, 
Bowling, Match Racer, Galaxians. 
Contact David Deans on (049)43-7229 after 3 P.A. 


(Charlestown, N.5.W.). 
HHEEE 








Published by Prentice-Hall, R.R.P. $19.95 


(Lithgow, N.S.W.) 

As pointed out in the book, the book is not 
intended to teach coaputer prograsaing but rather, it 
ains at getting the kids to get sone enjoyaent fros 
the coaputer. 

Each program is set out over two or three pages, 
The first page gives the prograe listing along with 
variations which will ake the programs easier, 
harder, faster or slower as the user desires. The 
second/third page(s) is entitled "How It Works” and 
gives a description of how the program actually works 
along with a diagraa that shows what the display 
screen should look like. Sose of the ganes also 
include a gases score sheet for record keeping. 

I found that the kids really enjoyed this book, 
once they got their hands on it they were glued to 
the computer for ages -they found it highly 
entertaining. 

I can reconaend this book to any parent, it 
gives good value for aoney and its convenient loose 
leaf format aakes it very easy to use. 


FALE 


Ie? 


HHH 
DISK BASED ADVENTURES: $45.00 each. 
Gruds in Space froa Sirius. 
The Institute from Screenplay. 

These are very good, illustrated Adventures and 
include original packaging and instructions. 

Contact Grant Robinson on (09)453~1253, 
Addresss- 19 Coolabah Way, Forresttield, Perth, 
Western Australia. 6058. 

HEHEHE 


CARTRIDGES: PacMan $20. 
Star Raiders with Video Touch Pad ito aid in playing) 
$40.00, 

Contact Ron Saras on (02) 750-0332 (Punchbowl, 
NLS.H.) 


HEEEE 


TinyText Word Processor 


[Editor's Note: TINYTEXT is a cassette/disk based progras with a relatively long history. Originally it 
was written by Stan Ockers to be published in the Eugene ACE Newsletter in Noveaber 1981, back in the days when 


word processors were very expensive. 


The intention back then was to save their editor some typing (here, 


here!') but over the years TinyText has been utilised by aany users and has grown into a auch larger, sore 
feature packed program than was ever intended. This is the fourth and latest version of TINYTEXT, each person 
having changed it to suit their needs, Read the documentation CAREFULLY to take advantage of it’s features.) 


TinyText has six options which you can step 
through using the OPTION key. These options ares- 
LOAD, SAVE, DISPLAY PRINT, EDIT and REPLACE. Press 
START to execute the currently displayed option. 

LOAD 

This option allows you to retrieve a text file 
which was previously saved to disk or cassette. You 
will be prompted to enter a filenaae. 

Cassette: Type ‘Cs’ and the computer will beep the 
once to remind you to position the tape and press the 
cassettes play button. After this, hit RETURN and 
the text file will begin loading. 

Disk: Type ‘Dsfilename.ext’ and then hit RETURN. 
The text will load, being displayed on the screen as 
it loads. Only TinyText files can be loaded fros 
disk. 





SAVE 
The SAVE option will save your text from aeaory 
to disk or cassette, 
Cassette: Type ‘C:' and the cosputer will beep 
twice. Position the tape and press the player's play 
and record buttons. After this, hit RETURN and the 
text file will be saved to tape. 
Disk: Type ‘Drfilename.ext’ and hit RETURN. The 
text will be saved to disk. 
EDIT 
This option allows you to enter text or change 
previously entered text. To exit this option press 
the OPTION key -if this doesn’t work you've probably 
forgotten to press the RETURN key after entering or 
editing text. 
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Entering Text: When you enter the EDIT aode you'll 
be presented with the number of free bytes in memory 
and a screen full of dots. At the centre of the 
screen there is a blank area (text window) -any text 
entries or editing will be carried out in this 
window, You can type up to three lines of text into 
this window using all of the usual screen editing 
features of the Atari. Pressing RETURN will add the 
text from the text window to any previously entered 
text. 


TinyText allows you to foraat text for print or 
display with centred lines, paragraph indentation and 
blank lines. Special foreatting control characters 
are use to do this and gay be inserted during the 
EDIT aode. These characters are used to end the 
current line of text and to specify the foraat for 
the NEXT line of text. Just press the CTRL key along 
with one of the following aneronic letters:- 

New line with text centered in that line, 

End current line and start a new one. 

Start and indent a new line, 

Form feed to the head of a new page. 

Skip. Leaves one blank line. 

Start a new line at the TAB setting. 

Editing Text: This is a more unusual feature of 

TinyText. Plug a joystick into port 1 -you can now 

scroll your text up, down, left or right, around the 

text window. Splitting your text across the window 

will allow you to insert a5 auch text as you like, at 

the point where the text has been split, just by 

typing whatever you want, pressing RETURN after every 

three lines, 

Alternately, using the joystick, you can position any 

line you wish to edit to the bottom of the text 

window and then press SELECT. The positioned line 

will move up into the text window ready for editing. 

Once again, you can use any of the Atari's noreal 

screen editing features to edit the line. When 

finished typing hit RETURN. To juap to the end of 

text just hit the joystick trigger. 
PRINT/DISPLAY 

These options format your text as per the 
control codes which have been inserted into the text. 
The print option gives you hard copy using your 
printer whilst the display option formats your text 
to the screen using two lines to represent 80 
coluans. When either of these aodes are entered you 
will be presented with the following screen: - 


An Vem 
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These are default values for page foreatting 
your text, just hit RETURN to accept the default 
values or sove the cursor to, and adjust the values 
you wish to change. 

Line Size: This is the number of characters which 
TinyText will print on one line. This figure, when 
added to the left margin figure, should not exceed 
the nuaber of coluans your printer is set for (i.e. 


80 or 132 coluans). 
(Cay 


Left Margin: The nuaber of print positions (coluans) 
which will be left blank before your text is printed. 
Indents Usually used at the start of a paragraph. 
This is the number of blank spaces which can be 
inserted between the left margin and the text. 

Tab Stop: This is sisilar to indenting but is 
generally used to indent or coluanate a list within a 
docueent. 


Page Sizer 





The number of lines on a page. 

Fora Feed: Used for roll or fan-fold paper. This is 
the nuaber of lines need to be printed in order to 
seperate the bottom of one page from the top of the 
next page. 

With the print option you will be asked if you 
want to pause at the end of each page. This aakes 
life easier if you want to use single-sheet paper 
rather than roll or fan-fold paper. The restart is 
screen-proapted, 

REPLACE 

In this aode TinyText searches for special codes 
which were embedded in the text during editing, It 
then "translates" these codes into the appropriate 
words and phrases autosatically. This process takes 
quite a bit of tise to operate so you will be alerted 
by a "bell" when the job's coaplete. 

This option was added by Bill Hardwick of 
England to cater for his needs as an entomologist 
“hence the nages and phrases contained in the DATA 
statements starting at line 1180. Using this option 
will require you to change these DATA stateaents to 
suit your own needs but it could save you a lot of 
time at the keyboard. 

Replacement is provided in two foras by the 
REPLACE option, numeric and alphabetic codes. 

EDIT MODE ADDITIONAL INSTRUCTIONS 

All the work you have to do for autosatic 

replacement of the code values is done in EDIT acde. 
Both types of code are identified to the progras by 
typing the code in inverse video using the ATARI key. 
The two types of code can be mixed freely and there 
is no need to come out of inverse video siaply to put 
spaces, punctuation or “special characters" (i.e. 
TSS2h'O()C>-ep ste, /01?) between successive 
replacement codes. All such characters the progras 
encounters in their inverse video fora will siaply be 
translated to their normal fora by the REPLACE option 
-this reduces the nuaber of key-strokes necessary to 
achieve the desired result. 
Alphabetic Codes: The 26 DATA iteas starting at line 
1180 are each associated with successive letters of 
the alphabet. This gives you an opportunity to 
select easily remembered anegonics for many iteas, 
which are quickly learned and help to increase your 
typing speed. 

fs a further option the code letter say be 
entered in either lower or upper case inverse video. 
If it is in upper case and the replacesent value 
starts with a letter, then the first letter of the 
first word of the replacement string will also appear 
in upper case -this is for convenient incorporation 
of replacement codes at the start of a sentence. 
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Numeric Codes: The values starting at line 1220 are 
each associated with a successive number, starting at 
1, in inverse video, All the sase reaarks apply to 
these as to alphabetic codes with two exceptions: - 

{a) There is no corresponding "upper case” feature 

(b) consecutive numeric replacerent codes aust be 
separated froe each other by some other character. 
Failing this, the progras will assuae that a triplet 
of three inverse video nuaeric characters is a single 
replacement coce and act accordingly. 

As listed the prograa contains replacement codes 
tailored to Bil] Hardwick’s needs. Unless you happen 
to be interested in wild-life recording and resident 
in Cheshire this is unlikely to be of auch benefit to 
you! Fortunately, it is very easy to alter the 
program to give your own bespoke version which you 
can then save for future use. Reaeaber to either 
type CLR or temporarily alter the DIM of T$ to say 
FRE(0)-500 and reinstate it after you have done your 
other changes. If you forget to do this you will 
probably get ERROR 2 when editing the prograa. 

To change the two types of replacesent codes you 
aust follow these siaple rules: 

Codes starting at line 1180: there aust be 
exactly 26 replacement strings here and the total 
length of all these string literals aust not exceed 
(255-26)=229 characters. Otherwise change thee to 
whatever you wish. 

Codes starting at line 1220: The total nuaber of 
replacement strings given here aust not exceed the 
DIMENSION of LP$. Also, the total length of these 
strings aust not exceed the DIMENSION of L$, 

As coded the program allows for 100 replaceaent codes 
whose total length should not exceed 1500 characters 
-this allows quite a bit of “slack” for expansion 
later without redimensioning. If you wish to vary 
these limits, change line 20 appropriately - the rest 
of the progras will take care of itself. Note that 
there is an absolute liait of 999 codes of this type 
in-built into the program logic in line 1500, though 
this too could easily be changed by altering the 
FOR-NEXT loop to FOR K=0 TO 3. Asa guide, the 
program as written gives a text buffer of 18 Kbytes 
on a 48K machine with DOS, 

Extra formatting commands 

Apart froa the previously mentioned commands, 
there are also others which are a little eore 
difficult to understand. J can only suggest that you 
experiment with thea:- 

Sets fill justify eode. 

Sets line fength (*!" terminates sequence). 

Direct printer commands follow this ("!" 

terminates sequence). 

Sets left justify aode. 

Sets left margin (default). 

Sets right justify aode. 
Being able to reset the aargins from within the 
text means that you can easily place the return 
address in a letter, offset a quote in an essay, 
etc. Embedding printer commands allows you to 
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(depending on the printer) set the line spacing, fora 
feed and fora length, to underline single words, use 
superscripts, subscripts, change fonts, etc. 

Using CONTROL H, you can send escape contro] 
codes direct to the printer. To produce the "ESC* 
character (which printers use to identify their 
instructions) just hit the "ESC’ key twice. This 
will aake room for two more codes, so if you only 
want to enter a single byte control code, pad out the 


As you will have noticed, sose of the cosaands 
are delisited using the exclamation mark. First type 
the control character you wish to use, type the 
string or values you wish to pass and then end the 
sequence with "!" e.g, 

CTRL N20! 
This will set the left sargin to 20, halfway through 
the text. 
BOOD LUCK!!! 


extra byte with a null code (CONTROL comea). 


O REM SERERSSRRESESSSOSSRETESE TEAS EE 
1 REM # TINY TEXT MARK IJ 
2 REM @ original program by 
3 REM # by Stan Ockers & Jia Carr 
4A REM # sodified by Bill Hardwick 
5 REM # Eugene A.C.E. Newsletter 
6 REM @ December 1983 
7 REM @ Reprinted by A.C.E. (NSH) @ 
8 REM @ August 1984 4 
9 REM GHDSRESRGRERRERERIERGCGSISEE054 
10 CLR :POKE B,O:6RAPHICS O:POKE 712,1 
ABsPOKE 752,1:7 CHRS(125):DIN PLS(L) 6 
P${4O)2FOR Jet TO A0sSPS{1,f)=" "sNEXT 
I 
20 DIM F#(2) ,C#(50) ,L$(1500) ,LP$ (100), 
D${256) 
30 DIM S$(45) , 1$(120) ,A$(12B) sSEZ=FRE( 
0)-50:DIM TS(SIZ):FOR I=1 TO 45: READ A 
sS$(L)2CHRS(ADENEXT I 
40 DATA £04, 104,133,204, 104,133, 203,10 
4 133,206,104, 133,205,104, 104,168,162, 
0,461,203, 145,203, 198,203,165 
"30 DATA 203,201 ,255,208,2, 198,204,145, 
203,197,205, 208,256, 165,204,197, 206,20 
8, 250,96 
60 FOR 181536 TO 1655:READ A:POKE [,A1 
NEXT I 
70 DATA 104, 104,133,204, 104,133,203, 10 
4, 433,206,104, 133,205, 162,0,169,240,32 
99465169, 40,32, 103,46 
80 DATA 165,207,208,8,169,160,32,103,6 
24,144, 10,169, 40,32,53,6,169,120,32,! 
03,6, 169,240,32,53,6,98 
90 DATA 133,208,161,203,41,128,148, 141 
3203, 41,127 
100 DATA 201,96,176,11,201,32,176,5,24 
105, 64,208, 2,233,32,129, 205,152,1,205 
129, 205,230, 203,208,2 
110 DATA 230,204, 230,205, 208,2, 230,206 
1198, 208, 208, 209,96, 133,208,149,0,129, 
205,230,205, 208,2 
120 DATA 230,206,198, 208,208, 244,96 
130 P2241:POKE 207,0sPOKE 82,0:0PEN #2 
p40, "Es "sTHChb=". "2 TS(480) 2", 3 T$(2)= 
1$ 
140 SCR=PEEK (88) +256#PEEK (89) +120:LL27 
OrLM=5s IND=5: TAB249:PS=66sFFa6:60T0 11 
30 
150 2 " INSERT TEXT OR ... PRESS selec 
¢ TO EDIT" sP=LEN(T$)-240 


160 POKE 702,0:POKE 752,0 

170 POSITION 0,037 SIZ-LEN{T$))" FREE" 
ISeSTICK(O)STF S=15 THEN 220 

180 IF #14 AND PCLEN(T$)-320 THEN P=P 
+40 

190 IF S#i3 AND P)280 THEN P=P-40:FLAG 
s} 

200 IF Smif AND PCLEN(T$}-280 THEN PeP 
+] 

210 IF S=7 AND P>241 THEN P=P-1 

220 AEUSR {1536 ADRIT$) +P-241 SCR) 

230 K=0 

240 POKE 53279, 8:PK=PEEK (53279) s IF PK= 
5 THEN 6OSUB 1010 

250 IF Pke3 THEN 410 

260 IF PEEK(764)<(255 THEN 300 

270 KeKtisIF K(10 THEN 240 

280 IF STRIG(O)#0 THEN PsLEN(T$)-2403P 
OKE 207, 01FLAG=0 

290 GOTO 170 

300 POSITION 0,102 INPUT $23 1$3PK=PEEK ( 
207):1F PK=0 THEN Ag="” 

305 IF NOT FLAG THEN IS(LEN(I$)+i)=" 
td 


340 LIMLEN(1$) 1LT#LEN(TS) sFLAGEOsIF LI 
#0 THEN 380 

320 IF LILT)SIZ THEN POSITION 0,117 * 
QUT OF SPACE*:G0TO 170 

330 IF PKei THEN ASHTS(P,PeS9) IF TS(P 
+39,Pe39)0" © THEN IS(LI¢L)=" "SL TaLI¢ 
i 

340 LASLEN(AS) :ADSADR(TS) 11 LIDLA THE 
N ABUSR(ADRIS$) ,AD+LT-1 ,AD#P-2,LI-LA) 
350 TS(P,PeLI-L)=1$ 

360 IF LADLI THEN TS(P+LI)=T$(P+LA) 
370 PuPeL Ts TS(LT#LI-LA+L)=""3POKE 207, 
O:60TO 170 

380 IF PEEK(207)=1 THEN 400 

390 IF PCLEN(TS$)-279 THEN T$(P)=T$(P+4 
0) 

400 POKE 764,255:B0T0 170 

410 TRAP 10402 ST#PEEK (560) +PEEK (541) #2 
5G+4:POKE ST-1,70:POKE §T+2,7:POKE ST+ 
3,112sPOKE ST+4,4:POKE ST#5,6 

420 POKE ST#24,65:POKE 712,148 

430 POKE ST+25,PEEK (540) :POKE ST#24,PE 
EK (561) 

440 POKE 711,90:0P20P+i3 IF OP=7 THEN 0 
Pal 

450 POKE 752,11? CHR$(125) :POSITION 20 


[5 


sO: IF OP=1 THEN ? “load * 

460 IF OP=a2 THEN ? "edit" 

470 IF OP=3 THEN ? “print® 

480 IF OP=4 THEN ? "save" 

490 IF OP=5 THEN ? “display” 

500 IF OP=6 THEN ? "replace" 

S10 POSITION 0,13? "PRESS start TO BEG 
INoption TO ALTER MODE® 

520 FOR Dei TO 30:NEXT D 

530 POKE 53279, 8:1F PEEK(53279)=*3 THEN 
440 

540 IF PEEK(53279)4>6 THEN 530 

550 POKE 764,255:POSITION 20,41? CHRS( 
125):POSITION 0,130N GP GOTO 109,150, 

560, 1050 ,560, 1310 

360 FOR Is4 TO 61? CHRS(127);sNEXT 13? 
FOR T=1 TO 63? * "SiNEXT 12? * 
a 





570 POSITION 0,11? °SET FORMAT CONTROL 

S"3POSITION 0,63? “LIME LEFT  IN- 
TAB PAGE FORM" sPOSITION 0,7 

580 POKE 72,0 

590 Fee", "sF$(2)sCHR$(127)0? “SIZE WA 

RG DENT ~— STOP SIZE FEED"y1? * 


"LL FS 3LM5 F9y IND} FS) TAB) FS) PS FS) FF 


600 POSITION 0,81 INPUT LL LM, IND, TAB,P 

§,FFsPa240 

610 POKE 702,6431F OP=5 THEN 630 

620 ? "DO YOU WANT TO PAUSE AT END OF 

EACH PAGE = (Y/H) "ps INPUT PLO: IF PL¢ 
>*Y" AND PL$<)"N* THEN 620 

630 LINE=O:GRAPHICS OsPOKE 712, 1483P05 
TTION 0, 32FLeOsPOKE 752,13? CHR$(125) 
640 RLSLLa TP=PsBeASC(TS(TP, TP) ) 

650 RLSLL~IND#(B=9) -TABE(B=20) 

660 IF B=i9 AND OP=3 AND LINE(=(PS-FF) 
THEN LPRINT " "sLINE*LINE+) 

670 IF Bei9 AND OP=5 THEN ? 

680 IF Bel6 AND OP©3 THEN FOR Tei TO P 
S-LINE:LPRINT © *sNEXT IsLInE=0:GOSUB 

980 

690 IF B=16 AND OP=5 THEN ? :? 3? aLIN 

E=( 

700 CeOrKx0 

710 KeKed: TPsTPels IF K=RL#! THEN 760 
720 IF TPOLEN(T$)-241 THEN FL=1:G0T0 8 

80 

730 AMASC(TS(TP,TP)) 2 IF AC32 THEN Cad: 

BOT 810 

740 IF AwS2 THEN C#C+i 


Cay 


750 GOTO 710 

760 IF C=O THEN A$=T$(P+1,TP-$)3 TP=TP- 
{:60TO 880 

770 TF TS{TP,TP)=" " THEN A$=T$(P+i, TP 
-1)360T0 880 

780 IF T$(TP-1,TP-1)=" * THEN CeC-1 
790 Kei 

800 TP=TP-isIF TS{TP,TP)<>" " THEN KK 
+1;60T0 800 

810 IF TP=P+{ THEN P=TP:GOT0 640 

820 AS="":S=P+i 

B30 AS{LENCAS) +h) =T${T F)sTF TS(1, 134d 
* * THEN 870 

840 IF C1 THEN AEINT(K/C+RND(O)}2 IF A 
}0 THER FOR Jel TO ASAS(LEN(A$)+i)=" * 
INEXT Gx K=K-A 

850 CeC-1 

860 IF C#f AND K>O THEN FOR J=1 TO KiA 
S(LEN(AS)+h)=" "SNEKT J 

870 TeltisIF ICTP THEN 830 

B80 POKE 77,0:1F FL THEN As=T$(P4+1 ,TP- 
1) 

890 IF OP=3 THEN LINE=LINE+i:1F LINED( 
PS-FF) THEN LINE@i:FOR Tei TO FFsLPRIN 
T * "SWEXT Is IF PL#="¥" THEN GOSUB 980 
900 SP=LM+(Be9) #IND+(B=20) #TAB+ (B=3) #1 
LL-LEN(A$))/2:1F SP40 THEN SP=40 

910 IF OP=3 THEN LPRINT SP${1,SP)3A$ 
920 IF OP=5 THEN ? SP$(1,SP);AS 

930 POKE 53279,8 

940 IF FL THEN ? :? * 
SENT TEXT, 

T 10 CONTINUE.” 

950 IF FL THEN IF PEEK(53279)<¢>6 THEN 

~ 950 

960 IF FL THEN 410 

970 P=TPs60T0 640 

980 POKE 53279,8:? "PAPER OUT : START 
WHEN READY" 

990 TF PEEK(S3279)=6 THEN GRAPHICS 03P 
OKE 712, 148:RETURN 

1000 GOTO 990 

1010 PKaPEEK(207):1F Pksi THEN POKE 20 
7,0:60T0 1030 

1020 IF PK=0 AND PCLEN(T$)-279 THEN PO 
KE 207, 

1030 ABUSR(1536 ADR (T$) +P-241 SCR) FOR 
D21 TO SO:NEXT DsRETURN 

1040 ? "ERROR "sPEEK(195)3" AT "32568 
EEK(187)+PEEK (186): G0SUB 1570:G60T0 410 
1050 POKE 702,64 

1060 2 " ENTER FILE-NANE "3: INPUT 14:0 

PEN #3,8,0, 18: N=INT (LEN (T$)/$28)3? 93, 

Ni IF N=0 THEN ST=0:60T0 1080 

1070 FOR I=1 TO NsST=i28#1:7 #3;T$(ST- 


END OF PRE 
PRESS STAR 


127,ST) NEXT I 

1080 ? #3; T$(ST+1 ,LEN(T$)):CLOSE #3:60 
TO 410 

1090 POKE 702,64 

1100 CLOSE #3:7 " ENTER FILE-NAME “331 

NPUT I$:QPEN €3,4,0, [Ss INPUT #3, Ns IF N 

=Q THEN BEG=-127360T0 1120 

1110 GRAPHICS OsPOKE 712,148:FOR I=1 T 

O N:BEG=128#1~127: INPUT #3,A$:? AS;3T$ 
(BEG)=A$iNEXT I 

1120 INPUT #3, A$: T$(BEG+128) "A$: CLOSE 

W3B:POKE 1536, 104: 6070 410 

1130 LPS(LDECHRS (0) sLPS(100)=LP$ (1) sLP 

S(2)=LPS$iL$e""s TRAP LLSOsRESTORE 1220) 

POKE 712, 148:POKE 752,11? CHR$(125) 
1140 FOR I=1 TO 100:READ C$rLP$(1)=CHR 

S(LER(C$) SLO (LEN (LS) +1) @C$sNEXT J 
1150 LTOP2I-1sPK=PEEK(195)31F PK¢>0 TH 

EN POP 

£160 TRAP 1040. TF PK(>O AND PK<>6 THEN 
1040 

1170 GOSUB 1210:60T0 410 

1180 DATA abundant, bred from,coason,di 
stributed exceedingly, fairly,usually,s 

carce,infrequent,one only 

1190 DATA (confiraation required) ,loca 
lly,most years,not occasionally ,pupae, 

quite,rare,sosetiaes,at light 

1200 DATA uncoaaon,very,widely,most re 

cent record,larvae, (dubious record) 
1210 RESTORE 1180:FOR I=] TO 26:READ C 

$s DS (LEN(D$) +1) =CHRS (LEN (D$) +LEN (C$) +2 
VIDS(LEN(DS$) +i) SC$:NEXT Is RETURN 

1220 DATA Warburton’s Wood, Whitegate W 

ay,Pettypool Wood,Winsford Delasere Fo 

rest Winsford (AS4) 

1230 DATA Hogshead Wood, Little Budwort 

h Coemon,Lea Green,Vale Royal Cut (Win 

sford) Christchurch (Dorset) 

1240 DATA New Forest (South Haapshire) 
;Bourneaouth (Dorset) Sherborne (Dorse 

t),Beausont (near Windsor) 

{250 DATA Newchurch Comson,Rossett (cl 

wyd) Runcorn,Poraby (Lancs.),Kennel Wo 

ods, Darnall] Woods,Congleton 

1260 DATA Rookery Pool Dutton, Dungenes 

s (Kent) ,Crewe,Cat's Clough,Moreton (W 
irral) Hawkstone (Salop.) 

1270 DATA Marford (Ciwyd) 

1280 DATA Wharton Heath, Whixall Moss ( 
Salop.) Alderley Edge,Portslade (Susse 

x) ,Streatley (Berks.) 

1290 DATA Bromley (Kent) ,Sherrat’s Rou 

gh, Dutton Hollows,Arthog (Gwynedd) ,Spi 

tal Daa (Wirral) Weaverhaa 


lb 


1300 DATA Rislay Moss,Widnes, Solihull 
{Warwicks.) 

1310 POKE 359, 0:1F LEN(T$)®S17 THEN 60 

SUB 15803? "QUT OF SPACE“:G0TO 410 
1320 XTHLEN(T$)sT#(XTes)2" "sTsiSZje* 
"sTS(XT#2) <T$(XT#i) 

1330 JeSIZ+i:FOR TeXT TO 1 STEP -i:dsJ 

“1:TS(T,T)2TS(L DT) sWEXT Tp Jess ERR=0 
1340 AZASC(TS(N,d))2 TF AD127 THEM 1400 
1350 TS(1,F)=T8(d,d)s Tatts 

1360 Jeded: IF J<#S12 THEN 1340 

1370 IF PEEK(S59)=0 THEN SOSUB 1580 
1380 IF ERRDO THEN 2? ERR3" ERRORS INR 

EPLACEMENT CODES":G0SUB 1570 

1390 TS(L)=""s? CHRE(253)160TO 410 
1400 IF ¢A>158 AND ACL76) OR (ADIB5 AN 

D ACI93) GR (A218 AND AC224) THEN T$( 
I, TeCHR$(A-128) sTal¢i:B0T0 £360 

$410 IF ADI75 AND ACI86 THEN 1500 

1420 IF (Ad192 AND AC219) OR (A224 AN 

D A251) THEN 1440 

1430 ERReERR+1:60T0 1350 

1440 LC®3211F A>223 THEN AmA-LCsLCe0 
1450 KziiFOR AzA-192 TO 1 STEP -t3Leks 

KeASC(D$(K,K)):NEXT A 

1460 CS=DS(L+i ,K-2)s1F LEN(CS)¢I>"0 TH 

EN GOSUB 1580:? "OUT OF SPACE"; 60SUB | 

570:60T0 1490 

1470 IF ASC(C$(1,4))¢97 THEN LOO 

1480 C$(f,L)=CHRS(ASL (C$ (1,1))-LC) 3 T$4 
J, I+LEN(C$)-1)=C0$s TeI+LEN (C$) 6070 136 

0 

1490 FOR Jed TO SIZ: TS(1,E)eT$(d,d) se 
1+4:NEXT Jx60T0 1370 

1500 CS="*2FOR Ked TO 2:1F ASC(TS(J4K, 

34K) C176 OR ASC(TS(I+K J+K)) 485 THEN 
POP 36070 1520 

1510 CH(LEN(C$) +1) 2CHRS(ASC(TS(J+K J +K 
))-428) sNEXT K 

1520 TRAP 1530sLOCHVAL(CS$) IF LOCD=1 A 

ND LOC<=LTOP THEN 1540 

1530 TRAP 10403:6070 1430 

1540 TRAP 1040sLe0:FOR Del TO LOCHKeL+ 
LsLekeASC(LP$(D,D))-1NEXT D 

1550 CosL$(K,L) TF LEW(C$)+1>=0 THEN 6 

OQSUB 15802? “OUT OF SPACE*:G0SUB 1550: 

BOTO 1490 

1560 Jed-1+LEN(STRE(LOC) )sT$(1, +LENIC 

$)-i) eC$2TeT+LEN (C$) 16070 1360 

1570 ? “PRESS RETURK TO CONTINUE": INPU 
T I$: RETURN 

1580 POKE 559,32:6RAPHICS O:POKE 712,! 
48: RETURN 


Graphs 2 


by Bao Quy Nguyen Phuoc. 


(Tempe, N.8.M.) 


{Editor's Note: After having run the Educational Software Competition we received a lot of requests to 
print the winning programs in the pages of Inside Info, unfortunately, for various reasons this progras is the 


only winning entry we are able to print. 


Bao Quy won the $50 second prize with this GRAPHS4 program -an excellent entry and a worthy effort. The 
prograa given here has been altered by ae to aake it shorter in length and a little easier to use. The resultant 
graphs from this prograe are depicted throughout this issue of Inside Info. 


Graphs Version 4 is a BASIC progras which will 
allow you to check up to three functions y=#(x), even 
trigonometrical ones, and is suitable for high school 
students, year 10 and up. 

When RUN the instructions will be displayed and 
you will be proapted to enter the nuaber of functions 
(1-3) you would like to check. 

The next screen asks you to enter each function, 
one at a tie. When entering your function you can 
use ‘PI’ for the value 3,14159265, Jf you wish to 
use the function which has already been entered 
{displayed on the bottoa of the screen) just hit 
RETURN, ' 
The prograa as listed contains three functions 
YaSIN(X), YsABS(X-1) and YsX#k/4. These functions 
appear in lines 50, Si and 52 and wil] be overwritten 
each tiee you enter a new function. This occurs 
because the prograe utilises the Ataris ‘FORCED READ’ 
acde {POKE 842,13) -so SAVE the prograe before you 
RUN it, otherwise you'll overwrite these sasple 
functions. 

In entering your functions, enter thee as 
executable BASIC code -i.e. upper case letters -with 
brackets where required. e.9, 
y®SIN x should read Y=SIN(X) 

If you fail to do this, you'll get a function error 
and be asked to re-enter your function. 

It is an observation of aine that using 
sultiplication will give you faster results than 
raising a nuaber to a power. e.9. 

4X executes faster than X*2. 








The user is able to examine, by enlarging or 
distorting, any section of the graph by siaply 





I wish I'd had something like this when I was at school!) 


redefining the origin and axes unit lengths. 

After entering your functions you will be asked to 
input the co-ordinate values for the origin -just 
keep hitting RETURN to accept the default values 
which will place the origin at the centre of the 
screen. Since the program uses GRAPHICS 8 it can 
plot to each pixel on the screen. Hence, possible 
values for the X co-ordinate are in the range 0-319 
going from left to right. Y values range fro 0-19! 
going froa the top to the bottoa of the screen, 

Next, enter the unit lengths to be used along 
the X and Y axes -the default is 10 units, just hit 
RETURN. Any entered values will be converted to 
integers and if less than 2 will not be accepted. If 
a value of one were accepted, every pixel along the 
axes would be on and there would be virtually no 
divisions, 

Braphs4 will pick up any discontinuity ina 
function which will be seen as a ‘hole’ on the graph 
plot. e.g. 

YecX-i) 8X41) /(N-1) 
This will be seen to be discontinuous at xe. 

Once the graphs are fully plotted press SELECT 
to redefine the origin and axes unit lengths or START 
to redefine functions. If pressing these buttons 
does nothing then the program is still plotting your 
functions, but out of range. If you get iapatient 
hit BREAK then type B0T0 90. You can then hit SELECT 
or START. 

PLEASE NOTE: This program should only be used as a 





tool for CHECKING your answers, not as a seans of 
obtaining thea!! 





1 REM SOREEREORRERORREORSEGGEEEEROR4 
2 REM @ GRAPHS VERSION 2 4 
SREN @ by Bao Quy Nguyen Phuoc 4 
4 REM @ Published by Atari Computer 4 


5S REN @ Enthusiasts (N.6.4.) | 
& REN @ August 1984 ‘ 
7 OREM QERMGEERGRAERGRRAEREREGEGEEEEE 
10 60TO 520 


20 REM DRAW FUNCTION ROUTINE 

30 POKE 709,14:605UB 130:FOR N=0 TO B- 
LsXe-X1/XL-1/KL 

40 FOR X=Xt1/XL TO (320-Ki)/XL STEP 1/ 
XL: TRAP 70 

50 IF N=Q THEN Y=SIN(X) 

Si IF N=1 THEN Y=ABS(X-1) 

52 IF N#2 THEN Y=X#X/4 

60 IF FLAG THEN RETURN 

70. TRAP 80:PLOT Xi+X#XL, Yi-Y#¥L: DRAWTO 
XL#X@XL  YI-VEYL 

80 NEXT XsNEXT WN 

90 POKE 764,255: IF PEEK(53279)=5 THEN 

410 

100 IF PEEK(S$279)"6 THEN GRAPHICS 036 

OT0 200 

110 GOTO 90 

120 REN DRAW AXIS AHD UHIT LERGTHS 

130 GRAPHICS 24:C=(RND(O) #6) #2¢2: SETCO 

LOR 2,C,2:SETCOLOR 4,C,2:COLOR 1 

140 PLOT Xi,0:DRAWTO X1,191:PLOT 0, Yi: 

DRAWTO 319,YisFOR Xe-ENT(XE/XL) TO INT 
(1320-41) /XL) 

150 TRAP 160sPLOT X1+X#XL ,¥1-2:DRAWTO 

NAFXENL VUsPLOT Xd+X@XL,VisDRAWTO Xi+X 

#XL, 142 

160 NEXT XaFOR Xe-INT((S92-Y1)/¥L) 10 
INTAYS/YL) 

170 TRAP 180:PLOT Xi,Vi-X#YLaDRAWTO Xi 


The voting for the best author/article froa 


+2, YI-X4YLIPLOT Xi-2,Yi-X#YL:DRAWTO X! 
VI-KAYL 

180 NEXT X:RETURN 

490 REM DEFINE FUNCTION 

200 CLOSE #110PEN €1,4,0,°Kr" 

210 TRAP 210:POKE 764, 255:POSITION 2,2 
O17 "HOW MANY FUNCTIOKS? "y 

220 GET #1,BsIF B¢49 OR BS! THEN 220 
230 BS=CHR$(B):BeVAL(B$):FOR We0 TO B- 
{uIF Wad THEN N$@"FIRST® 

240 IF Nel THEN N$="SECOND® 

250 IF N=2 THEN N$=*THIRD® 

260 ? CHRE(125):POKE 709, 10:POSITION 2 
5183? "PRESS RETURW TO USE CURRENT FUN 
CTION"SLIST S0+N 

270 FOR 120 TO Z:POSITION 2,203? CHRS( 
254) sNEXT TZel4sPOKE 764, 255:L%0 

280 TRAP 280:POSITION 2,13? "USE ‘PI’ 
FOR 3.14159265°sA$="":? 3? "ENTER YOUR 
"sH$;* FUNCTION 3":? 2? “Ye"; 

290 GET #1,AsIF A>39 AND AC58 AND L<30 
OR A=94 AND L¢30 THEN ? CHRS(A)ssLeL+ 
{sA$(L) =CHRS (A) 

300 IF A>O4 AND AC89 AND L¢30 THEN ? C 

HRS(A)s sLeLelsA$(L)=CHRS$(A):GOTO 290 
310 IF A=i26 THEN 2 CHRS{A) sr AS(L)=**s 

LeL-{:6070 290 

320 IF ACD155 THEN 290 

330 IF NOT L THEN 390 

340 REM FORCE READING 

350 POKE 709,417 CHRS(125) 

360 7 17:57:47 SO#Ns" IF Nw" yNy" THEN 

Ya"yA$1? 17 2? "CONT? 

370 POSITION 2,0:POKE 842,13;STOP 

380 POKE 842,12 

390 TRAP 400s FLAGH=1:G0SUB SO+N:FLAG=O: 

NEXT Ni GOTO 410 


florices 


I've had very 


recently, almost no tise for anything else. 


400 7 CHRS(125)sPOKE 709,10:7 " FY 


WCTION ERROR, TRY AGAIN"}3? CHR$(253) 43 


FOR Jel TO SOOINEXT [:2022:60T0 260 
410 ? CHR$(125):POKE 709,421? "PLEASE 
ENTERS "2? 37 8? * ORTOIN * 

420 TRAP 420:POSITION 2,417 ° X CO-0RD 
THATE econ 160 "87 “Loftad Rightad$ 
9" sPOSITION 23,6:G0SUB S00: Xi=¥L 

430 IF X1<0 OR X1D319 THEN 420 

440 TRAP 440:POSITION 2,937 * ¥ CO-ORD 
IKATE sees 96 "8? *Top=0 Bottoas9 
1"1POSITION 23,9:605UB 500: Y1=¥L 

450 IF YiCO OR YID191 THEN 440 

460 227.2737" LEWGTH OF UNITS ON AX 
ES * 

470 TRAP 4703POSITION 2,153? * X AXIS 
case JO"SPOSITION $5, 15:G0SUB 5003 XL2 
YL3IF XL¢2 THEN 470 

480 TRAP 480;POSITION 2,173? " Y AXIS 
coos 1O*SPOSITION 15,17:60SUB 500: IF 
YL¢2 THEN 480 

490 BOTO 30 

500 INPUT YLrYLeINT (YL) sRETURN 

510 REM JWSTRUCTIONS 

520 CLR 1Z814sP183, 14159265: 01M A$(30) 
yB$(1) NS (4) 

530 GRAPHICS O:POSITION 12,037 " GRAPH 
S$ VERSION 2°37 1? “THIS PROGRAM WILL P 








TOT UP TO THREE* 


540 2 "FUNCTIONS f(x) AT ONCE*sPOSITIO 
N 2,103? "WHEN A GRAPH I8 COMPLETED PR 
E661" 

550 7 2? "SELECT TO REDEFINE ORIGIN AN 
D LENGTHS"1? 3? "START TO BEGIN AGAIN" 
36070 200 


and sore 
Future 


little tise to ayself 


issues 7 to 12 of Inside Info was held at our July 
aeeting. Unfortunately, the committee did not feel 
that there were enough votes recorded to warrant 
awarding the $100 prizemoney. It has therefore been 
decided to put the vote back to the Noveaber aeeting 
which is the Club‘s Annual General Meeting. To help 
you aake your decision, the October issue of Inside 
Info will contain a list of all the articles/authors 
which are eligible for the prizesoney. Please show 
your support by voting, either by aail or by being 
there, 
HEHE 
A nuaber of articles I prosised for this issue 
have not appeared because of lack of tise and space. 
I‘ll try and get them ready for the next issue and 
hopefully catch up on Odds and Sods. 
HHH HE 
Since [ became "teaporary" editor of Inside Info 


/a 


issues will have articles which have been edited by 
others as well as ayself. If you would like to help 
out with this please let ae know. It would be 
preferable if you had a moder so that there will be 
no problea sending articles and programs to each 
other. Duties would include checking, condensing and 
debugging programs as well as checking the english 
and accuracy of any articles. 
HREEE 
There are a few new titles available from the 
software exchange. Check the infomation sheet (page 
2) for details. 
HEHEHE 
The Annual General Meeting will be held on Sth 
Noveaber. Voting will take place to fill all of the 
Club's Committee positions. Please consider taking 
up @ position yourself and show your support by being 
there, 


